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EDIN0613P WEIGHT ESTIMATING PROGRAM 

By 

Guy N. Hirsch - Sigma Corporation 
SUMMARY 

The- weight estimating program developed for the EDIN0613P 
simulation series automates the weight and geometry estimations 
essential to the predesign of a heavy lift launch vehicle in 
the one million pound payload range. The EDIN0613P series 
simulations size a two stage (winged) tandem launch vehicle for 
the space power system being investigated for the year 1995. 

The launch vehicle consists of a, booster and second stage element 
capable of injected one million pounds of payload into low earth 
orbit. 

The weight estimating program, when employed in an automated 
simulation, is a highly useful tool in conceptual design studies 
where the effects of various trajectory configuration and sub- 
system parameters must be evaluated rapidly and economically. 

The program furnishes weight estimates of components and a large 
amount of configuration geometry necessary to make tradeoffs and 
evaluate the configuration. Emphasis is placed on simplicity 
for flexibility ease of implementation and minimum input prepara- 
tion. Characteristic equations for estimating weights are based 
largely on historical data and are kept relatively simple. The 
program is designed for a specific application but avoids the 
complexity of a completely generalized computer program that 
would be unwieldily to use and/or modify. 

This document describes a method and computer program for the 
calculation and summation of system and subsystem weight elements' 
for advanced aerospace vehicle concepts-. The method is based on 
the statistical analysis of historical weight data for the com- 
ponents of similar vehicle configurations . The correlations and 
correlating parameters for a variety of vehicles in the advanced 
transportation class are presented. The user of the program has 
the option of accepting the vehicle correlation presented for 
modifying them on an individual component basis to suit vehicles 
under study. 

The correlating parameters are described to the computer program 
in terms of gross geometric characteristics and, vehicle weight-. 
Geometric characteristics include such items as wing area, aspect 
ratio, body length, etc. The vehicle is initially sized on the 
basis of main propellant requirements. The program accumulates 
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system and subsystem weight elements resulting in the recalcula- 
tion of the input vehicle weight. An iteration is performed to 
converge on a final estimated weight. 
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INTRODUCTION 


The estimation of the mass properties of a vehicle is one of the 
most important considerations in the design process and yet one 
of the most inexact engineering endeavors. While the calculation 
of aerodynamic, propulsion and mission performance are based on 
widely recognized mathematical prediction, techniques, the estima- 
tion of weight must be based largely on historical data. The art 
of weight estimation has evolved through the years by the diligent 
collection and correlation of component weight of previously built 
vehicles. New design weights are predicted on the basis of the 
component weights of past designs. Little information is usually 
available on the other properties such as volume, area, center 
of gravity and inertia of the components. 

Approach 

The classical approach to weight estimation (i.e., the component 
buildup technique) is used in the program. Each component weight 
is based on the weight of the same component of similar vehicles 
that have actually been built or at least designed in great de- 
tail. The similarity law that gives the best correlation for 
most systems has been shown to be the power law formula . 

B. 

... — T* 7* Tr 


where 

is the empirical coefficient of the historical equation. 

is a predominant physical characteristic or combination 
thereof effecting the weight of the component 

is the empirical exponent of the historical weight 
equation 

The component weight is obtained from the summation of all 
physical characteristic combinations,. X^ which contributes to 

the weight of the component. The correlation parameters and 

B^ are determined empirically from historical data on similar 

vehicle systems or subsystems. The technique is based on a pre- 
programmed set of X^.A^ and B^ and is read into the program. 

The weight of the vehicle is the cumulative total of all of the 
weight components , w^ . 
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W = E w . 
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The program logic assumes the propellant weight and physical 
characteristics are known. It performs the weight estimations 
based on the above formulations with user supplied correlation 
parameters,, estimated gross weight and estimated landing weight. 

An internal iteration loop cycles, through the equations until 
convergence on gross weight is achieved. Appendix A presents 
a- listing, of the weight estimating programs for stage 1 and 
stage 2. In addition, an abbreviated flow chart of this program 
is presented in Appendix B., 

Calculation of Weight Coefficients 

Component weight estimation in this report is based on the power 
law formula: 

W = a.X B 

This equation form generates a straight line on log-log graph 
paper. Consequently most historical data is correlated on this 
type of paper. All available data is usually plotted against 
the correlation parameter, X. A regression analysis produces a 
mean line (s) through the data. The coefficients A and B- are- 
then determined. The data herein presents the historical data., 
the trend line from the regression analysis and the coefficients. 

Frequently, however, the user desires to alter the trend line 
based on data for a vehicle more like the study vehicle or 
change the technology level (i.e., 1995 technology needed for 
the SPS launch vehicle). This results in a change in coefficients. 
A method for determination of the adjusted coefficients, is pre- 
sented below. The determination of the adjusted coefficients is 
presented .below. 

If a new line is above or below the existing line, the A coeffi- 
cient is simply scaled by the ratio of any 'two values lying on 
the two lines at the same value of the X correlation parameter:. 


A new _ W new @ X 
.A old ~ W old @ X 

The B exponent do.es not change since the "slope" or trend has- not 
changed. -If the alteration of the "slope" or trend is indicated, 
the following procedure may be employed in the calculation of A 
and B. 
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Consider two correlation points, and X 2 and the corresponding 
weight values and W 2 on the log-log graph paper. The value 
of B for a straight line through the two points is: 

B *■ lQ g (W ? /W- 1 ) 
log (X 2 /X 1 ) 

The logarithm may be any base. Suppose the two chosen points are 
N cycles apart, the formula becomes: 

B log (W 2 /W 1 ) 

if base 10 logarithm is employed in the numerator. The formula 
for natural logarithm is: 

B ^ In (W 2 /W 1 ) 

2.303 N 

The A coefficient can. be determined by substitution 



Using the above equation, the user can establish any weight trend 
line desired based on new or existing data within this report. 
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PROGRAM FORMULATION 


The program computes approximate flight vehicle mass properties 
based on the statistics of past designs. This technique is based' 
on: 

1. Correlation of past vehicle mass and volume properties 
against physically significant parameters. 

2. Regression analysis of the correlations to provide an 
analytic model for flight vehicle mass properties. 

The program operates at the subsystem and major component level. 
The subsystem breakdown employed is: 


1. Aerodynamic surfaces 

2. Body structure. 

3. Induced environment protection. 

4 . Launch and recovery . 

5. Main propulsion. 

6. Orientation controls and separation system. 

7. Surface controls. 

8. Power supply, conversion and distribution. 

9. Avionics. 

10 . Crew systems . 

11. Design reserve -(contingency) . 

12 . Propellants . 

Each subsystem is broken down into major components. For 
example, aerodynamic surfaces are broken down into four com- 
ponents : 

1. Wings. 

2'. Vertical fin. 

3. Horizontal stabilizer. 

4. Fairings, shrouds and associated structure. 


Each subsystem and subsystem component weight and estimating 
relationship used is presented in the following sections. 
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Aerodynamic Surfaces 


Wing . - The wing weight equation as defined within this study, 
is based on the theoretical area and calculates an installed 
structural wing weight that includes control surfaces and carries 
through where applicable. The weight of the wing is calculated 
as a function of load and geometry. 

The wing weight equation is : 

Ww = C (a/10 9 ) 0,67 

WD-LF-b’/2 • SW 
a tR 

where , 

Ww = Structural Wing Weight, lbs. 

WD = Vehicle Entry Weight, lbs. 

LF — Ultimate Load Factor. 

b' = Structural Span, ft. (Figure 1) 

SW = Total Theoretical Wing Area, sq. ft. 
tR = Wing Taper Ratio. 

C = Scaling Coefficient. 

The wing weight coefficients (C) and 0.67 represent the intercept 
and slope, respectively, of the logarithmic data shown in figure 
2. The data used to derive the empirical equation and coeffi- 
cients is based on actual wing weights of many types of aircraft, 
both straight and swept wing. The coefficient (C) was derived 
by taking a 25% reduction over the shuttle technology to maintain 
a nominal prediction level for a 1995 projection (References 1 
and 2) . 

To account for the heat loads encountered by the wing during a 
reentry, the equation illustrated in figure 3 was used to compute 
the additional wing thickness requirements. The computed thick- 
ness was then used to arrive at an additional wing weight require- 
ment (Reference 3) , 

Vertical Fin . - The vertical fin weight includes the weight of 
the control surface. The weight is scaled as a function of fin 
planform area. 
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FIGURE 1 


WING STRUCTURAL SPAN CALCULATION, 



WING STRUCTURE WEIGHT HIS TORY /PROJECT ION 


HISTORICAL DATA - AIRCRAFT AND SPACECRAFT- 


1 . 

B-36J 

9. 

C-133B 

17. 

990. 

2. 

B-47B 

LO. 

A3J-I 

18. 

C-141A 

3. 

B-52A 

LI. 

XB-70A 

19. 

F-111B 

4. 

YB-60 

L2. 

F-102A 

20. 

C-5A 

5. 

C-135A 

L3 . 

F-106B 

21. 

747 

6 . 

B-58A 

L4, 

F-I08 

22. 

F-4D 

7. 

F-I05A 

L5 . 

F-101B 

23. 

F-15 

8. 

F-104F 

L6. 

880 

24. 

SHUTTLE 


INDEPTH STUDIES - SPACECRAFT 

25. SHUTTLE PHASE B BOOSTER, MDAC/MMC 

26. SHUTTLE PHASE B BOOSTER, NAR/GDC . 

27; SHUTTLE PHASE B ORBITER, MDAC/MMC 
28. SHUTTLE PHASE'S ORBITER, NAR 

•29. SHUTTLE PHASE C AND D PREPROPOSAL,, GAC/MMC 


RATIONALE FOR PROJECTIONS 


© IMPROVEMENT IN ANALYTICAL METHODS FOR OPTIMIZATION 
© USE OF ADVANCED COMPOSITE MATERIALS 


FIGURE 2A CORRELATION DATA. 
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FIGURE 2B 


EDIN06 WING WEIGHT ASSUMPTIONS. 



WING WEIGHT (W u ) s LBS 



WING SIZING PARAMETER (a / 10 9 ) 


FIGURE 2C WING WEIGHT, 





Q = TOTAL HEAT 

A e = SIN -1 (SINA LE -COSa) 

A le = LEADING EDGE SWEEP 

a = ANGLE OF ATTACK/REENTRY 

C p = SPECIFIC HEAT OF MATERIAL 

P T = DENSITY OF MATERIAL 

T„ = END TEMPERATURE 

E 

T s = START TEMPERATURE 

J* = LEADING EDGE RADIUS 

J-iE 

= PLANFORM AREA 

b REF 


FIGURE 3 WING SKIN THICKNESS REQUIREMENTS. 

HEAT SINK BOOSTER 



The equation for the vertical fin weight is: 


Wv 


C'-Sv 


1.113 


where , 


Wv = Vertical fin Weight, lbs. 

C = Scaling Coefficient. 

Sv = Fin Planform Area, sq. ft. 

The vertical fin coefficients (C) and 1.113 represent the slope 
and intercept of the logarithmic data shown in figures 4 and 5. 

The data illustrated in figure 4 is representative of vertical 
fin data for straight and swept wing aircraft. The value for 
coefficient (C) chosen for this study is representative of shuttle 
technology with a 20% reduction to maintain a tolerance level 
within the illustrated 1995 projection (References 1 and 2) . 

No heat sink penalty was applied due to the high alpha assumed 
for the reentry portion of the flight. 

Horizontal Stabilizer . - The. horizontal stabilizer weight includes 
the weight of the control system. The weight is scaled as a 
combined function of load, geometry and dynamic pressure. 

The equation for the horizontal stabilizer is: 


WH = C»A 


A 


.60 

WO 

sw 


(SH) 1,2 


(QMAX) * 8 


where, 

W H = Horizontal Stabilizer Weight, lbs. 

WD = Entry Weight, lbs. 

SW = Wing Planform Area, sq. ft. 

SH = Maximum Dynamic Pressure, PSF. 


The coefficients (C) .6, 1.2 and .8 are representative of the 
data illustrated by figure 6. The weight is directly proportional 
to A. The coefficient (C) is representative of shuttle technology 
less 20% to maintain a nominal 1995 projection (References 1 and 
2 ) . 


A heat sink weight penalty was applied to the horizontal stabilizer 
in the same manner as the wing, figure 3. 
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HISTORICAL DATA - AIRCRAFT AND SPACECRAFT 


1. 

B-36J 




10. 

A3J-1 

20. 

2. 

B-4 ; 7B 




11.. 

XB-70A 

22. 

3. 

B-52A 
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6. 
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17. 
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B 
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NAR 


29. 
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C 
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RATIONALE ' FOR PROJECTIONS 


• IMPROVEMENT IN ANALYTICAL METHODS FOR OPTIMIZATION 
e ADVANCED COMPOSITE MATERIAL USE 


SOURCES OF INFORMATION 


O MMC REPORT 0436/20-199-68 
9 NASA CR-2420 

• GDC-DCB-66-008 TECHNICAL REPORT 


C-5A 

F-4D 

SHUTTLE 


FIGURE 4 


VERTICAL FIN STRUCTURE HISTORY/PROJECTION, 



FIGURE 5 

VERTICAL FIN WEIGHT 



VERTICAL FIN AREA CSQ FT) 



FIGURE 6 

HORIZONTAL STABILIZER WEIGHT 














Body Structure 


Integral LOX Tank . - The integral oxidizer tank is sized as a 
function of total tank volume including ullage and residuals. 

The equation for the integral LOX tank is: 

w = c-v 


where , 

W = Liquid Oxygen Tank Weight , lbs. 

V = Total Oxidizer Tank Volume, cu. ft. 

C =* Sealing Coefficient 

The scaling coefficient (C) was formulated from the data 
illustrated in figure 7, and is representative of shuttle 
technology, less 25% which provides a nominal 1995 projection 
level. References 1 and 2. 

To account for the heat loads encountered by the LOX tank during 
a reentry, the equation illustrated in figure 8 was used to com- 
pute the additional thickness to soak the heat load. The 
calculated thickness is then used to arrive at an additional 
LOX tank weight. Reference 3. 

Integral Fuel Tank . - The integral fuel tank is sized as a 
function of total tank volume, including ullage and residual 
volume. 

The equation for the integral fuel tank is: 

W = C • V 

where , 

W = Fuel Tank Weight, lbs. 

V = Total Fuel Tank Volume, cu. ft. 

C — Scaling Coefficient. 

The scaling coefficient (C) was formulated for RP-1, LH2 and 
CgH^ integral fuel tanks. The data for RP-1 and LH2 is 

illustrated in figures 9 and 10. Since the physical properties 
of RP-1 approximate CgH^ propellant, the. coefficient developed 

for the RP-1 tank was used for the CgH^ tank. All three of 

these coefficients represent shuttle technology less 25% to 
maintain a nominal 1995 prediction level. References 1 and 2,. 

The data illustrated in figure 8 was used to compute the addi- 
tional thickness requested to soak the heat during a reentry. 


17 



FIGURE 7 


LIQUID OXYGEN TANK WEIGHT 
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FIGURE' 8 


TANK SKIN THICKNESS REQUIREMENTS 

HEAT SINK BOOSTER 
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FIGURE 9 


LIQUID HYDROGEN PROPELLANT TANKS 
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The. thickness is computed in the same manner as the LOX tank, 
heat sink requirements. Reference 3. 

Thrust Structure . - The weight of the main engine thrust structure 
is a function of total vacuum thrust and includes the attachment 
structure and thrust beams but does not include the aft skirt. 


The equation for thrust structure is; 


W = C 


T 

VAC 


1.15 


where , 

W = Total weight of the Thrust Structure, 
C = Scaling Coefficient. 

T VAC= Total Vacuum Thrust of Stage, lbs. 


lbs. 


The weight scaling coefficient (C) and 1.15 were developed, from 
the historical data shown in figures 11 and 12. The coefficient 
(C) is representative of shuttle data less 25% which maintains 
a nominal 1995 prediction level. References 1 and 2. 


Nose Structure . - The nose structure includes the structure for- 
ward of the integral LOX tank and includes the basic shell weight, 
access doors, fairings, etc. The weight is computed as a function 
of estimated wetted area. 


The equation for the nose structure is; 
w N a C • Jr 2 + L 2 • PI • R 

where , 

= Structural Weight of the Nose, lbs. 

C = Scaling Coefficient. 

R = Radius of Nose, ft. 

X = Length of Nose, ft. 

LI = Constant (3.14159) 

The equation for the nose structure was developed from Reference 

4. 
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FIGURE 11 


HISTORICAL DATA 
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Intertank Structure . - The intertank structure includes the 
structure in, between the integral LOX and fuel tanks. The inter- 
tank is sized as a function of geometry, load, load factor and 
dynamic pressure. 

The equation for the intertank structure is : 

W=C • ( (LF(W p +W T ) ) * 300 ) (LREF) * 9 ° (DIA) 1,05 (Q) * 177 
where , 

W = Intertank weight, lbs. 

LF = Load factor, g's. 

Wp = Weight of propellant, lbs. 

W T = Tank weights, lbs. 

LREF = Reference length, ft. 

DIA = Diameter of fuselage, ft. 

Q = Maximum dynamic pressure, PSF. 

C = Scaling coefficient. 

The scaling coefficient C corresponds to the historical data 
shown in figure 13 (Reference 4) . 

Interstage Structure . - The interstage structure is the connect- 
ing structure between the booster and the second stage. It is 
jettisoned at staging. The interstage structure is sized as a 
function of wetted area as follows: 

W = (C) (PI) (DIA) (LNOSE) 

where, 

W = Weight of the interstage structure, lbs. 

C - Scaling coefficient, lbs/sq. ft. 

DIA = Diameter of stage, ft. 

LNOSE = Length of interstage, st. 

Typical values for (C) varying from 2.50 to 3.66 Ibs./sq. ft. of 
wetted area (reference figure 13) . 

Secondary Structure . - The secondary structure includes access 
doors, nonstructural fairings, etc. The equation for secondary 
structures is : 
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VEHICLE 


G-159 

440 
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C-130A 

880 
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990 
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C-133A 
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2 .38 
3 . 78 
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5.41 
4.25 
4.68 
4.89 

5.39 
4.05 
3.77 
4.91 

3.39 
5.14 
4.89 
3.77 
5.45 
3.16 
3.32 
2.54 
4.94 
4.02 


FIGURE 13 BODY UNIT WEIGHT DATA, 
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W = C • WST 


where, 

W = Weight of secondary structure, lbs. 

C = Scaling coefficient 
WST = Total weight of structures group, lbs. 

Typical values for (C) varying from .015 to .10. 

Induced Environmental Protection 

Insulation . - A radiative protection system to hold structural 
temperatures within acceptable limits is the' type of vehicle 
thermal protection system considered for this study. This system 
utilizes radiative cover panels with or without insulation. If 
insulation is used, it assumes that -the structural temperature 
is held to approximately 200° F. 

The equation for insulation weight is : 

W = (C) (SW) 

where, 

W = Weight of the insulation, lbs. 

C =’ Scaling coefficient 

SW = Total wetted area to be insulated, sq. ft. 

The coefficient (C) is an insulation unit weight that may be 
obtained as a function of surface temperature from figure 14. 

The user must estimate the surface temperature that will be 
encountered on the initial case in order to input the coeffi- 
cient Cl 80 and then adjust the input on following runs if the 
initial estimate’ is too far off. 

The data shown in figure 14 is based on micrqquartz insulation 
for an 1/2 hour time duration. The three curves represent allow- 
able heating rates of 100, 400 and 700 BTU/ft.2 with the 
structural temperature being held to approximately 200° F. 

Launch and Recovery 

Launch Gear . - The launch gear equation is used for the support 
structure and devices associated with supporting the vehicle 
during the launch sequence.' This includes struts, pads, sequenc- 
ing devices, controls, etc. The equation for launch gear is: 
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w = -(C) (WTO) 
where , 

W = Total weight of launch gear, lbs. 

WTO = Liftoff weight, lbs. 

C = Scaling coefficient. 

The input coefficient .0003 is a proportion of the computed 
takeoff weight. Typical values for preliminary design purposes 
would be .0001 to .0003. 

Landing Gear . - The landing gear equation has been developed 
from data correlation of existing aircraft. This data included 
the nose gear, main gear and controls. The equation for calcula- 
ting landing gear (including controls) is: 

WLG = . 00196 (WWAIT) 1 ‘ 1244 

where , 

WLG = Total weight of landing gear and controls, lbs. 

WWAIT = Maximum landing weight, lbs. 

The landing gear weight coefficients .00196 and 1.1244 represent 
the intercept and slope, respectively, of logarithmic data shown 
in figure 15. The' data used in deriving the coefficients in 
figure 15 is based on conventional aircraft. 

Main Propulsion 

The engines considered in this study are the main engines used 
to propel the vehicle during the main flight phases, the second- 
ary engines used for orbit maneuvering and de-orbit maneuvers and 
the flyback engines used for flyback and landing. 

Main Engines . - The main engines for this study are assumed to 
be advanced technology engines. The main engines are scaled as 
a function of total thrust (Reference 50 . 

WENGS=TTOT/RATIO 

where , 

WENGS = Weight of main engines, lbs. 

RATIO = Scaling ratio. 
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FIGURE 15 LANDING GEAR WEIGHT. 


Ratio 


Typical values of ratio are as follows : 
Engine Type 


LOX/H2 1 

X 

10 6 

lbs . Thrust 

75. 

LOX/H2 2 

X 

10 6 

lbs . Thrust 

90. 

LOX/RP-1 

2 

X 10 

6 lbs. Thrust 

90. 


Airbreathing Engines . - The flyback engines are used for flyback 
and landing on the booster vehicle and they are used for landing 
only on the orbiter stage. These are airbreathing engines that 
are scaled as a function of initial flyback weight or input as 
a fixed weight. The equation for flyback engine weight is: 

WABPR = (C) (WENT/CLD*THR) 
where, 

WABPR = Weight of airbreathing engines, lbs. 

C = Scaling coefficients. 

WENT = Flyback weight, lbs. 

CLD = Liftover drag ratio. 

THR = Thrust at altitude of engine, lbs. 

Airbreathing Tankage . - The airbreathing engine tanks are- sized 
as a function of the fuel requirements . The equation for the 
airbreathing engine tank is : 

W = (C) (WAB) 

Where, 

W = Weight of tanks, lbs. 

WAB = Weight of airbreathing fuel requirement, lbs. 

C = Scaling coefficient. 

Main Fuel System . - The fuel system includes the weight of those 
items necessary to deliver the fuel from the vehicle storage tanks 
to the engine pump inlets, tank venting and propellant dumping 
requirements. The weight of such systems is highly dependent upon 
the vehicle tank and propulsion system layout and the ease of 
ducting required to perform the propellant transfer function. The 
equation for main fuel system weight is: 

WFUSYS = . 00095 (TTOT) 
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where, 

WFUSYS = Fuel system weight, lbs. 

TTOT = Total vacuum thrust of main engines, lbs. 

The weight of the main fuel system may vary substantially from 
one booster to another because of the many design considera- 
tions which can only be analyzed on the basis of a specific 
design application. Since boosters may have to be sized on a 
preliminary basis before detail design data is available, the 
.00095 coefficient was used to account for a RP-1 main fuel 
system. The coefficient .00023 is used for LH2 systems. 

Main Oxidizer Systems . - The oxidizer system comprises those 
items needed to transfer oxidizer from the vehicle storage 
tanks to the propulsion system and the components required to 
vent or dump the oxidizer tanks. This system is dependent 
upon the size, length and ease of ducting for transfer of the 
propellant. The equation for main oxidizer system weight is: 

WOXSYS=. 00175 (TTOT) 
where , 

WOXSYS = Weight of oxidizer system, lbs. 

TTOT = Total vacuum thrust, lbs. 

A booster with the oxidizer tank forward of the fuel tank, 
and RP-1 is used for the fuel, the coefficient .00175 is used. 
If LH2 is used for the main fuel, the coefficient .0023 is 
used. Both coefficients are representative of shuttle 
technology. 

Propellant Pressurization and Purge System . - Tne propellant 
pressurization and purse system for the main propellant system 
is representative of a stored high pressure helium system. 

The two major parameters used to 1 obtain input are the main 
tank pressures and the helium storage temperature. The system 
weight includes the storage bottles, stored gas and system 
components. The weight equation inputs weigh the pressuriza- 
tion and purge system as a function of fuel and oxidizer tank 
volumes. The equation for propellant pressurization and purge 
system weight is: 

(RP-1 Fuel System) 

WFUSYS=. 20 (VOXTK) 
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where. 


WFUSYS =■ Weight of system, lbs. 

VOXTK = Total volume of oxidizer tank, cu. ft. 

(LH2 Fuel System) 

WFUSYS=. 10 (VFUTK) +.20 (VOXTK) 


where , 

WFUSYS = Weight of the system, lbs. 

VOXTK = Total volume of oxidizer tank, cu. ft. 

VFUTK = Total volume of fuel tank, cu. ft. 

The coefficient .10 and .20 were obtained from the data in 
figure 16 (reference 1) . 

Orientation Controls and Separation 

Gimbal System . - The gimbal (thrust- vector-control) actuation 
system is utilized when a rocket engine is used for main impulse. 
The data in figures 17A and 17B is based on an electrical system 
consisting of a silver-zinc primary battery, ad. c. electric 
motor and a gear train, two magnetic partical clutches and ball- 
screw actuators. 


The system weight is expressed in parametric form as a function 
of delivered torque, maximum deflection rate of nozzle and 
operating time. The range of significant operational 
requirements and conditions for the data presented here are: 


Delivered Torque 
Nozzle Deflection 
Nozzle Deflection Rate 
Operating Time 
Thermal Environment 
Acceleration 


6,000 to 3,000,000 lb. -in 

2 to 20 degrees 

5 to 25 degrees/second 

50 to 1200 seconds 

-420 to +400° F 

2.5 to 15g 
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NOTES; 

1. MAXIMUM DEFLE CTION = 10° 

2. MAXIMUM DEFLE CTION 'RATE = 20 ° /SEC 

3. t = TOTAL OPERATING TIME IN SECONDS 
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The system assumes pitch and yaw control for single engine 
and pitch, yaw and roll control for multiple engines. The 
equation for delivered torque is: 




f \ 1.25 


TDEL 

(750) | 

[(TTOT/NENGS /PCHAM)) 


TDEL 

Gimbal 

System Delivered Torque, 

lb- in 

TTOT 

Total 

Stage Vacuum Thrust, lbs 


NENGS = 

Total 

Number of Engines Per Stage 

PCHAM = 

Rocket 

Engine Chamber Pressure, 

psia 


The delivered torque calculation assumes a maximum nozzle 
deflection of 10 degrees. The calculated delivered torque 
is then used in the gimbal system weight equation which is : 


where 


WSTAB = 

(NENGS) 

(.021) (TDEL) ‘ 

778 


WSTAB = 

Weight 

of Engine Gimbal 

System, 

lbs 

NENGS = 

Total Number of Engines 

per Stage 

TDEL 

Gimbal 

System' Delivered 

Torque , 

lb-in 


The weight coefficients .021 and .788 represent the intercept 
and slope, respectively, for the curves shown in Figures 
17A and 17Bt These coefficents scale the gimbal system 
weight per engine as a function of the engine delivered torque. 
The data in Figure 17 a represents a gimbal system with a 
maximum nozzle deflection rate of 20 deg/sec and Figure 17B 
is for 5 deg/sec. 

Attitude Control System . ' - This subsystem represents 
the weight of the attitude control system which includes 
engines, valves, pressurant and residual propellants. It does 
not include the propellants and their associated tankage. 

The system includes pitch, yaw, roll and translation engines. 
The equation for attitude control system weight is: 

WACS = 1530. (WWAIT)* 104 

where , 

WACS = Weight of Attitude Control System, lbs 
WWAIT = Initial Orbit Weight, lbs 
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The weight coefficients 1530 and .104 represents the intercept 
and slope, respectively, for the data shown in Figure i-8- 
These coefficients scales the attitude control system 
as a function of initial orbit weight and type of system. 

The upper cur-ve is representative of a high pressure 
turbopump system. The thrust level ranges from 1,000 lbs 
to 2,000 lbs per thruster with the number of thrusters vary- 
ing from 15 to 30. The lower curve is representative of a 
high pressure fed super critical storage system. The 
thrust range and number of thrusters are the same as the 
upper curve. (References 1 and 7) . 

Attitude Control System Tankage . - The attitude control 
system tankage weight includes the bladders, insulation, 
mounting, etc., but does not include the propellants. 

The equation for attitude control system tankage weight 
is : 

WACSTK = .17 (WACSFO + WACRES-) 

where , 

WACSTK = Weight of Attitude Control System Tankage, lbs 
WACSFO = Weight of ACS Fuel and Oxidizer, lbs 
WACRES = Weight of ACS Propellant Reserve, lbs 

The coefficient . 17 scales the attitude control propellant 
tankage weight as a function of total attitude control 
propellant and reserve propellant weight. Different types of 
propellant combinations and storage arrangements may be used. 
If a storable propellant is used a typical input value is 
1.10. A cryogenic propellant will have an input value of 
0.25. If the cryogenic propellant utilized super critical 
storage the imput value should be increased to 0.60. 
(References 1 and 5 ) . 

Aerodynamic Controls . - The weight of this subsystem includes 
the total weight of the aerodynamic control system. It 
includes all control levers, push-pull rods, cables, and 
actuators from the control station up to but not including 
the aerodynamic surfaces. This weight does not include the 
autopilot or the AN Hydraulic/Pneumatic system weight. The 
equation for aerodynamic controls system weight is : 

WAERO = .0771 ((WWAIT)* 689 (LBODY + CSPAN)' 287 )) 

where 

WAERO = Weight of Aerodynamic Controls , lbs 
WWA'IT = Initial Entry Weight, lbs 
LBODY = Body Length, ft 

CSPAN = Sturctural Span (Along .5 Chord) , ft 
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The weight- coefficients .0771 represent the intercept and slope, 
respectively, for the aerodynamic controls data from various 
aircraft shown in Figure 19- This coefficient scales the 
aerodynamic controls weight as a function of entry weight, body 
length and structural wing span. The data is representative 
of a fixed wing aircraft. (Reference 1) 

Seperation System . - The Separation system weight includes 
the system and attachments that are used for separating the 
two stages from each other. This weight includes the separat- 
ion system back-up structure required to react the loads as 
well as the fittings and structure that attaches the two stages 
together. 

The equation for seperation system weight. 

WAV XT = .0015 (WTO) 
where, 

WAUXT = Weight of Separation System, lbs 
WTO = Take-off Weight, lbs 

The coefficient .0015 scales the separation system as a 
function of orbiter take-off weight for both the orbiter 
and booster stages. Typical valves range from .001 to .003 
when no design date is available. 


Power Supply, Conversion and Distribution 

Electrical System . - This subsystem includes the weight items 
required to generate, convert and distribute electrical power 
required to operate the various vehicle subsystems. The 
major components represented in this system weight are power 
generating units, transformers, recetifier units, control 
equipment " and electrical power distribution system. 

The equation for electricla system weight is : 

WSORCE = 47.627 (WAVIOC)* 473 
where, 

WSORCE = Weight of Electrical System, lbs 
WAVIOC = Weight of Avionic System, lbs 

The weight coefficients 47.627 and .473 represents the 
intercept and slop, respectively, for the electrical 
system data shown in Figure 20* (Reference 1) 
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AERODYNAMIC CONTROLS WT. (LBS) 





FIGURE 19 AERO CONTROLS WEIGHTS 
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FIGURE 20 ELECTRICAL SYSTEMS WEIGHT 
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Hydraulic/Pneumatic System 


The hydraulic/pneumatic system is comprised for the system, 
components to produce fluid or pneumatic pressure control 
equipment, storage vessels, hydraulic fluid' and a distribut- 
ion system up to but not including the various functional 
branches, weight is.: 

WHYCAD = . 426 (('SWING + SHORZ' + S VERT ) (Q/I000 .') ) 1 * 3125 

i n 6 1 ^ ^ ^ ) 

+ (LBODY + CSPAN) ; 

where , 

WHYCAD = Weight of Hydraulic/Pneumatic -System, lbs 

2 

SWaNG = Gross Wing Area, ft 

2 

SHORZ - Horizontal Stabilizer Planform Area, ft 
SVERT = Vertical Fin Planform Area,, ft 2 

2 

Q = Maximum Dynamic Pressure, lbs/ft 

LBODY = Body Length, ft 

CSPAN = Structural Span (Along .5 Chord) , ft 2 

The weight coefficients .426 and .849 represents the intercept 
and slope, respectively, for the. hydraulic/pneumatic system shown 
in figure 21 _.as a function of the summation of aerodynamic sur- 
face areas times the dynamic pressure and as a function of body 
length and structural span. The areas and dynamic pressure 
are the parameters for sizing- the hydraulic/ pneumatic 
•equipment. The- body length and structural span is used 
as the parameters to account for the distribution system. 
(Reference 1) 


Avionics 

The avionic system, for this study, includes the guidance 
and navigation system, the instrumentation system and the 
communications system. 

Guidance and Navigation System . - The guidance and navigation 
system includes those items necessary to ensure that the 
vehicle position and its trajectory is known at all times. 
This system also generates commands for the flight control 
system for changing or correcting the vehicle heading. The 
equation for guidance -and navigation system weight is : 

WGNAV = C6 8' 
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FIGURE 21 HYDRAULI C/PNEUMATER SYSTEM WEIGHT 




Design Reserve 


The input for contingency and growth permits a proportion of 
dry weight and/or a fixed weight to be set aside for growth 
allowance, design unknowns, etc. The dry weight is summed 
by the equation: 

W = (C) (WDRY) 
where, ' 

W = Design Reserve, lbs. 

C = Percent Design Reserve 
WDRY = Total Dry Weight, lbs. 

Main Propellants 

The main propellant requirements is an input to the program. 

The distribution between oxidizer and fuel is computed as follows: 

WO = MR * WP/MR + 1 
WF = WP/MR + 1 
where, 

WO = Oxidizer Requirements, lbs. 

WF = Fuel Requirements, lbs. 

WP = Total Propellant, lbs. 

MR = Mixture Ratio 

Reserve Propellants 


Fuel and Oxidizer Reserves . - The main impulse propellant 
reserves may be computed from the mass ratio and mixture 
ratio, as a percentage of the main impulse fuel and 
oxidizer weights or input as fixed weights. The equations 
for calculating the main impulse reserve fuel and oxidizer 
weights are : 

WFURES = C115 (WFL) 

WOXRES = Cl 17 (WOX) 
where , 

WFURES = Weight of Fuel Reserve, lbs. 

WFL = Weight of Main Impulse Fuel, lbs. 

WOXRES = Weight of Oxidizer Reserve, lbs. 

WOX = Weight of Main Impulse Oxidizer, lbs. 
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The coefficients C115 and C117 scales the reserve fuel and 
oxidizer weights as a function of the main impulse fuel and 
oxidizer weights, respectively. Typical input values for C115 
and C117 will vary from 0.05 to 0.20. (Reference 1.) . 

Residual Propellants 


Trapped Gases . - The weight of trapped gases for pressurizat- 
ion and purge is calculated by the following equation: 

WGASPR = CIO 6 (VFUTK + VOXTK) 
where , 

WGASPR = Weight of Pressurization and Purge Gases, lbs 
VFUTK = Total Volume of Fuel. Tank, ft 3 
VOXTK = Total Volume of Oxidizer Tank, ft 3 

3 

CIO 6 = Propellant Tank Gas Weight Coefficient, Ibs/ft 

The coefficients CIO 6 scales the gas weight as a function of 
fuel and oxidizer tank volumes, respectively. The input 
value for these coefficents depends upon the specific design. 

Trapped Fuel . - The trapped fuel is defined as that amount 
of fuel trapped in the main tank and cannot be. expended for 
main impulse. The equation for trapped RP-1 fuel weight is 

WFUTRP = .008 (WFL) 
where , 

WFUTRP = Weight of Trapped Fuel, lbs 
WFL = Total Weight of Fuel, lbs 

The equation for trapped LH2 weight is : 

WFUTRP = (.0011) (WP1) + (TTOT) (.00015) 

The coefficients .008, .0011 and .00015 were developed 
from reference 1. 

Trapped Oxidizer . - The trapped oxidizer is defined as that 
amount of oxidizer trapped in the main tank and cannot be 
expended for main impulse. The equation for trapped oxidizer 
weight is : 

WOXTRP = (WPI) (.000395) + (.00095) (TTOT) 
where , 

WOXTRP = Weight of Trapped Oxidizer, lbs. 
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WPI = Total Weight of Propellant, lbs. 

TTOT = Total Stage Vacuum Thrust, lbs. 

The coefficients .000395 and .00095 were developed from Reference 

1 . 


Trapped Engine Propellant . - Trapped engine propellant is 
determined by the following equation: 

WEG = (C) (1 . 12*TT0T/CGM) 

where , 

WEG = Trapped Engine Propellant, lbs. 

C = Scaling Coefficient 
TTOT = Total Vacuum Thrust, lbs. 

CGM = Rationing Coefficient to Determine Number of Engines. 

Secondary Propellants 

ACS Propellant . - The attitude control system propellants are 
computed by the following equation: 


WACSFO = .003 (WWAIT) 
where , 

WWAIT = Initial Orbit Weight, lbs. 
WACSFO = Weight of ACS Propellant, lbs. 


The coefficient .003 was developed from Reference 1. 


Airbreathing Fuel . - The weight of the airbreathing fuel is com- 
puted as a function of flyback range as follows: 

WAB = WAV ( 1-e ( RG//RF * ) 
where. 


WAB = Airbreathing Fuel Requirement, lbs. 
WAV = Average Flyback Weight, lbs. 

RG = Flyback Range, NM. 

RF = ( (.6) (926) (WAV)/(WD) (6080) ) 

WD = (CA) (WAV/ CLD ) / 3 6 0 0 . 

CA = Scaling Coefficient 
CLD = Lift/Drag Flyback Ratio 
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Inflight Losses 


Fuel and Oxidizer Losses . - The inflight losses includes all 
losses during main flight except main impulse propellants. The 
vented fuel and oxidizer are computed by the equations : 

WFULOS = Cl 2 3 (WFL) 
where, 

WOXLOS = C125 (WOX) 

WFULOS = Weight of Vented Fuel, lbs. 

WFL = Total Weight of Fuel, lbs. 

WOXLOS = Weight of Vented Oxidizer, lbs. 

WOX = Total Weight of Oxidizer, lbs. 

The coefficients C123 and C125 scales the vented fuel and oxidizer 
as a function of total fuel and oxidizer, respectively. Input 
values for C{123) and C(125) will vary with different vehicles, 
propellants and trajectories. Typical values are .00128 and 
.00272 respectively. 


USER INSTRUCTIONS 


This section provides instructions for using the weights program. 
It includes deck setup and a description of input and output. 

The program can be used in a stand alone manner or within the 
EDIN System. In the stand alone mode the user provides all 
weight coefficients and exponents, geometric data, areas, volumes 
and propellant requirements . The program computes the component 
weights in an iterative manner to satisfy the propellant require- 
ment. When used within the EDIN System,, the geometric character- 
istics as well as weight coefficients may be computed in other 
programs and passed to the program through the EDIN design data 
base. 


Program Input 

The Weight Estimating Program uses namelist input. Namelist is 
a standard Fortran feature. The rules are described in any good 
Fortran manual. The single namelist name for this program is: 

$ IN WAP (starting in column 2) 

Each input variable or array has a name and value (s) . 

name=value , 
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or 

name= value , value , 
or 

name { I ) =value , value , 

The namelist is terminated with a $ (dollar sign) in column 2 or 
greater. 

The following list defines the input variables. 


INPUT PARAMETER DEFAULT VALUE 


ENG 

20. 

RANGE 

300. 

THRVAC 

2000000. 

LH2 

0 . 

MR 

2.68 

WMAIN 

20746011. 

CGASPR 

.01516 

CFUTRP 

.0060 

CNOST 

3.66 

CSTGST 

4.087 

CTCRAT 

.12 

CPRSYS 

.20 

CINFUT 

.866 

CINOXT 

.810 

COXTRP 

.000395 

CENTRP 

.120 

CENGM 

100.0 

COXRES 

0 . 

CFLRES 

0 . 


DESCRIPTION 

Number of Main Engines 

Down Range , nm . 

Total Vacuum Thrust, lbs. 

Logical if 1 Fuel is LH2 . 

Mixture Ratio. 

Main Propellant Requirement, lb. 

Trapped Gas Coefficient. 

Trapped Fuel Coefficient. 

Nose Structure Weight 
Coefficient . 

Interstage Structure Weight 
Coefficient. 

Rool Thickness Ratio. 

Pressurization System Weight 
Coefficient. 

Fuel Tank Structure Weight 
Coefficient. 

LOX Tank Structure Weight 
Coefficient. 

Trapped LOX Propellant 
Coefficient. 

Trapped Engine Propellant 
Coefficient. 

Engine Coefficient. 

LOX Propellant Reserve 
Coefficient . 

Fuel Propellant Reserve 
Coefficient. 
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DESCRIPTION 


INPUT PARAMETER 

DEFAULT VALUE 

CAXACS 

.0045 

CAXAB 

.601 

CFFLOS 

.00175 

COXLOS 

.00272 

CULLOX 

. 03 

CUCLFL 

.03 

CWING 

1781. 

CTHRSI 

.0002744 

CLG 

. 001213 

CINSTG 

. 01377 

CSECST 

.015 

CINSUL 

.03 

CMISUL 

0.0 

CLANCH 

.0003 

CABPR 

8780. 

CLDRG 

6.0 

COXSYS 

. 006784 

CFLSYS 

.006784 

CHEAT 

5.092 

CENGMT 

.0001 

CTDEL 

750. 

CACS 

1530. 

CACSTK 

.17 

CABTK 

.17 

CAERO 

.0771 


ACS Propellant Weight 
Coefficient. 

Airbreathing Engine Propellant 
Weight Coefficient. 

Fuel Loss Weight Coefficient. 

LOX Loss Weight Coefficient. 

LOX Tank Ullage. 

Fuel Tank Ullage. 

Wing Weight Coefficient. 

Thrust Structure Weight 
Coefficient. 

Landing Gear Weight 
Coefficient. 

Intertank Weight Coefficient. 

Secondary Structure Weight 
Coefficient. 

Insulation Weight Coefficient. 

Miscellaneous TPS Weight 
Coefficient. 

Launch Gear Weight Coefficient. 

Airbreathing Propellant Weight 
Coefficient. 

Lift Over Drag Flyback Ratio . 

Oxidizer Feed System 
Coefficient. 

Fuel Feed System Coefficient. 

Base Heat Shield Coefficient. 

Engine Mount Weight 
Coefficient. 

Gimbal System Coefficient. 

ACS System Weight Coefficient. 

ACS Tank Weight Coefficient. 

Airbreathing Engine Tank 
Coefficient. 

Aero Control Weight 
Coefficient. 
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INPUT PARAMETER 

DEFAULT VALUE 

CSEP 

.0015 

CNAV 

1800 . 

CINST 

8.40 

CCOM 

1450. 

CSORCE 

47.627 

CPOWER 

1.50 

CHYCAD 

.505 

CCONT 

.20 

CVERT 

2.25 

CHORZ 

. 000263 

LDRAT 

5.0 

LNOSE 

50. 

LINSTG 

10. 

LSKIRT 

40. 

WSRAT 

100 . 

THRAB 

20710. 

TAPER 

.60 

DY1B2 

.05 

LAMBLE 

10. 

LAMBTE 

0 . 

TS 

350. 

TSWEEP 

10. 

HEAT 

4000. 

AL 

40 


DESCRIPTION 

Separating System Weight 
Coefficient. 

Avionics System Weight 
Coefficient. 

Avionics System Weight 
Coefficient. 

Avionics System Weight 
Coefficient. 

EPS Weight Coefficient. 

EPS Weight Coefficient. 

Hydraulic System Weight 
Coefficient. 

Design Reserve Coefficient. 

Vertical Tail Weight 
Coefficient. 

Horizontal Stabilizer Weight 
Coefficient. 

Fineness Ratio. 

Length of Nose, f.t. 

Length of Intertank, ft. 

Length of Aft Skirt, ft. 

Wing Loading, Ib./sq.ft. 

Thrust of airbreathing engine, 
lbs. 

Taper Ratio of Wing. 

Percent Distance Along Span of 
Fillet. 

Leading Edge Sweep, deg. 

Trailing Edge Sweep, deg. 

Start Temperature of Structure 
deg. F. 

Sweep of Horizontal Stabilizer, 
deg. 

Maximum Reentry Heat, BTU's. 

Reentry Alpha 
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INPUT PARAMETER 

DEFAULT VALUE 

RLE 

1.5 

LAMBDF 

30. 

LF 

3. 

PCHAM 

4000. 

WDOT 

5813.9 • 

CSVERT 

.750 

CSHORZ 

.180 

QMAX 

800. 


DESCRIPTION 

Leading Edge Radius (wing) ft. 

Sweep of Fillet, deg. 

Load Factor 

Chamber Pressure, PSF. 

Engine (Main) Flow Rate, 
lb/ sec. 

Vertical Stabilizer Area 
Coefficient. 

Horizontal Stabilizer Area 
Coefficient. 

Maximum Dynamic Pressure, PSF 


Program Output 

The program has two main types of output. The first is a 
printed output as illustrated in figure 22. The second is 
an output to a tempory file for DLG and consequent data base 
intercept (reference Appendix A) . 
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STAGE- 1 WEIGHT STATEMENT • 


AERODYNAMIC SURFACES 


42 0269 . 

i.i i He 

35496 0 • 


HEAT SINK PENALTY •!.JINb> 

U. 


VERTICAL TAIL 

15092. 


HORIZONTAL CTAEILIZEP 

14647. 


HEAT SINK PENALTY '.STftB.' 1 

35571 . 


BODY STRUCTURE 


493264 . 

INTEGRAL LOX TANK 

120821 . 


HEAT SINK PENALTY fLOJO 

U. 


INTEGRAL FUEL TANK 

6 033 2 . 


HEAT SINK PENALTY '-'FL 1 

U. 


THRUST STRUCTURE 

151619. 


INTEPTANK STRUCTURE 

1 04329. 


NOSE -STRUCTURE 

1 *z' i* u! ■ 


INTERSTAGE STRUCTURE 

35077. 


SECONDARY STRUCTURE 

7364 . 


INDUCED ENVIRONMENTAL PROTECTION 


547 . 

TANK INSULATION 

547. 


MISCELLANEOUS 

U. ■ 


LAUNCH AND RECOVERY SYSTEM 


1 1 1 28 U . 

LAUNCH GEAR 

65 ij5 . 


LANDING GEAR 

1 04775 . 


PROPULSION 


699180. 

MAIN ENGINES 

444444 . 

* 

AIRBREATHING ENGINES 

Kb 953 . 


AIR-BREATHING TANKAGE 

9_1_14. 


PROPELLANT FEED SYSTEM 

11 24 _.5, 


MAIN ENGINE MOUNTS 

4uuij. 


PRE'SSURI IftT ION S YS TEM 

40274. 


HEAT SHIELD 

1 1940. 


ORIENTATION* CONTROLS SEPARATION 


1 00677. 

MAIN ENGINE SI MB At SYSTEM 

71988. 


ACS ‘ ' 

11710. 


ACS TANKAGE 

1842. 


AERODYNAMIC CONTROLS 

11523. 


SEPARATION SYSTEM 

36 1 3 . 


AVIONICS 


5548 . 

ELECTRICAL POWER SYSTEM 


3221 . 

HYDRAULIC C, PNEUMATIC SYSTEM 


25403. 

DRY WEIGHT 


1864390. 

DESIGN RESERVE 


j »* czo r y ■ 

EMPTY WEIGHT 


2237268. 


FIGURE 22A PROGRAM OUTPUT, 
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MR IN PROPELLANTS 
OXIDIZER 
FUEL 

RESIDUAL PROPELLANTS 
TRAPPED GASSES 
TRAPPED OXIDIZER 
TRAPPED FUEL 

TRAPPED ENGINE PROPELLANT 
RESERVE PROPELLANTS 
OXIDIZER 
FUEL 

INFLIGHT LOSSES 
OXIDIZER 
FUEL 

AUK I L I ARY PROPEL LANTS 
ACS PROPELLANT 
AIPEPEATHING ENGINE FUEL 


138611 1 0. 
.5331196. 

4545. 
45581 . 
31987. 


1 91.923 06 . 
141847. 


U. 


0 

0 



1 0838 . 
53613. 


47038 


64451 . 


BOOSTER LIFTOFF HEIGHT 


8 1 6 8 89 04. 

MACS FRACTION 


. 885 

BOOSTER HEIGHT AT STAGING 


2408488. 

ENTRY HEIGHT ^ATMOSPHERIC INTERFACE:* 


£3 390 00 . 

BOOSTER LANDING HEIGHT 


88-84 1,,'. 

SY’fEM AND SUBSYSTEM HEIGHT PERCENTAGES: 

t;-' 



AERODYNAMIC SURFACES 

1 . 

9333 


EDDY STRUCTURE 

8 . 

8980 


ENVIRONMENTAL PROTECTION 


0 085 


LAUNCH AND RECOVERY 


5138 


PROPULSION 

-! * 

8846 


OR I ENTAT I ON.--COHTROLS . - S EPEP AT I ON 


464 3 


AVIONICS 


0856 


ELECTRICAL POWER SY ITEM 


0 1 49 


HYDRAULIC 2 - PNEUMATIC SYSTEM 


1 172 


DRY HEIGHT 



8.5984 

DESIGN RESERVE 

i. 

7197 


EMPTY HEIGHT 



10.3181 

MAIN PROPELLANTS 

88 . 

51 35 


TRAPPED PROPELLANTS 


6542 


RESERVE PROPELLANTS 


0 0 0 0 


INFLIGHT LOSSES 


2169 


AUXILIARY PROPELLANTS 


2972 
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FIGURE 22B 


PROGRAM OUTPUT, 



STAGE 1 GEOMETRIC CHARACTERISTICS: 



FUSELAGE* 

TOTAL LENGTH <FT> 


£73. 5 

STAGE DIAMETER CFT> 


54. 6 

LENGTH- Ii I AMETEP RATIO 


•5 . O 0 

AFT -SKIRT LENGTH (FT'' 1 

4 0 . 0 


INTERTANK SPACING CFT’< 

1 0 . 0 


NOSE LENGTH «FT> 

50. 0 


lok: tank length «.ft> 

106.3 


FUEL TANK LENGTH CFT> 

J* > c. 


TOTAL TANK VOLUME INCL ULLAGE 


311153. 

LO:-=: TANK VOLUME 

2 0 1 363 . 


FUEL TANK VOLUME 

1 037S5 . 


WINGS 

WING AREA c. SO FT> 


£031 0. 7 

WING LORDING c'LES - i C •FT’* 


110. 0 

WING SPAN •' FT) 


339. 4 

STRUCTURAL WING SPAN CFTV 


U * 7. 

ROOT CHORD <FT'j 


74.3 

THEORETICAL F'OOT THICKNESS ‘.FT’:- 


9, O 

TIP CHORD 1 FT’> 


44.9 

TAPER RATIO 


. 6 0 0 

ASPECT RATIO 


cr — * 

Jm 1 

SWEEP OF FILLET CDEG> 


30. 0 

LEADING EDGE I WEEP CDEG*> 


10. 0 

TRAILING EDGE SWEEP ’-DEG.? 


. 0 

SPAN WISE DISTANCE 


. 0 

DY 1 


3.5 

DYE 


L 6 1 . £ 

CF 


4. 9 

Cl 


78. £ 




L c. 


• V » 



1.5 

C4 


. 0 

C5 


c! • 4 

C6 


—i 

» f 



“i “V 
_> * i 

u r 


cs 


1. 1 

• LAM C.'2.« 1 


o 

CLAM C.-cVE 


. l 

COS LAM C • 1 


. 96 08 

COS LAM C.--S 


. 9961 

CDS LAM £ EFF 


5371 

CL A TRUE 


. 08 

CL A REF 


. 08 

VERTICAL TAIL: 

VERTICAL TAIL AREA CSC FT’* 


£741.9 

HORIZONTAL STABILIZER: 

HORIZONTAL STABILIZER AREA >\IQ FT’* 


365-5, 9 

FIGURE 22C PROGRAM OUTPUT 
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STAGE S WEIGHT STATEMENT 


AEROD YNAM I C SURFACES 


£76741 . 

WING 

£69589. 


VEPTICRL TRIL 

4799. 


HORIZONTAL STABILIZER 

2354. 


EDDY STRUCTURE 


183401. 

INTEGRAL LO:-i TANK 

£7536. 


INTEGRAL FUEL TANK 

5788 1 . 


THRUST STRUCTURE 

£0399. 


INTERTANK STRUCTURE 

45159. 


NOSE STRUCTURE 

138S9. 


INTEPSTRGE STRUCTURE 

i coo? 


SECONIiflRY -STRUCTURE 

£710. 


INDUCED ENVIRONMENTAL PROTECTION 


-587. 

TANK INSULATION 

537 - 


MI SCELLANEOUS 

0. 


LAUNCH AND RECOVERY SYSTEM 


3 06 0 0 . 

LAUNCH GEAR 

1 666 . 


LANDING GEAR 

£8934. 


PROPULSION 


138466. 

MAIN ENGINES 

93333 . 


AIRBRERTHING ENGINES 

0. 


AIRBREATHING TANKAGE 

0. 


PRDPELLANT FEED SYSTEM 

12361. 


MAIN ENGINE MOUNTS 

7 0 0 . 


PRES S UR I ZA T I ON SYS TEM 

£1761 . 


HEAT SHIELD 

1 0310. 


ORIENTATION » CONTROLS SEPARATION 


33455. 

MAIN ENGINE G I MEAL SYSTEM 

1£840. 


ACS 

1 1 -■ 1 f m 


ACS TANKAGE 

1 439 . 


AERODYNAMIC CONTROLS 

-5036. 


SEPARATION SYSTEM 

c! o c! c‘ . 


AVIONICS 


4953. 

ELECTRICAL. PQI.iER SYSTEM 


£968 . 

HYDRAULIC & PNEUMATIC SYSTEM 


8094. 

DRY WEIGHT 


67926-5 . 

DESIGN RESERVE 


859 0 0 . 

EMPTY WEIGHT 


765165. 

PAYLOAD 


1 051923. 


FIGURE 22D PROGRAM OUTPUT, 
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MR IN PROPELLANTS 
OXIDIZER 
- FUEL 

RESIDUAL PROPELLANTS 
TRAPPED GASSES 
TRAPPED OXIDIZER 
TRAPPED FUEL 

TRAPPED ENGINE PROPELLANT 
RESERVE PROPELLANTS 
OXIDIZER 
FUEL 

INFLIGHT LOSSES 
OXIDIZER 
FUEL 

AUXILIARY PROPELLANTS 
ACS PROPELLANT 
A I RBPEATH I N6 ENGINE FUEL 


31 £39 07. 
520651 . 

£470. 
8 09 0 . 
5059. 
i£544. 

37487. 
6c4o • 

3497 . 
1416. 

3467 . 

0 . 


3644553. 


S816S 


43735. 


991 


846' 


STAGE LIFTOFF HEIGHT MINUS PAYLOAD 

45 0 0 0 0 0 . 

STAGE LIFTOFF HEIGHT HITH PAYLOAD 

ctc-eth qo j 

MAES FRACTION 'BASED ON INERT HEIGHT 

. 8 1 0 

HEIGHT AT INJECTION >.INCL PAYLOAD) 

1381565. 

ENTRY HEIGHT < ATMOSPHERIC INTERFACED 1 

809478. 

STAGE LANDING HEIGHT 

798 072. 

SYSTEM AND SUBSYSTEM HEIGHT PERCENTAGES: >'-0 


AERODYNAMIC SURFACES 

BODY STRUCTURE 

ENV I PONMENTAL PROTECT I ON 

LAUNCH AND RECOVERY 

PROPULSION 

ORIENTATION^ CONTROLS -'SEPERATION 
AVIONICS 


ELECTRICAL POHEP SYSTEM 
HYDRAULIC 4 PNEUMATIC SYSTEM 
DRY HEIGHT 

DESIGN RESERVE 
EMPTY HEIGHT 

MAIN PROPELLANTS 
TRAPPED PROPELLANTS 
RESERVE PROPELLANTS 
INFLIGHT LOSSES 
AUX I L I ARY PPOPELL ANTS 


6. 1498 
4. 0756 
. 01.31 
. 680 0 
3. 0770 
. 7434 
.1101 
. 0660 
. 1799 

15. 0948 

1.9 039 

17. 0037 

8 0 . 99 0£ 

. 6 £5 8 
. 9719 
. ££03 
. 1 S9£ 


FIGURE 22E PROGRAM OUTPUT, 
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STAGE £ GEOMETRIC CHARACTERISTIC S' : 


FUSELAGE: 

TOTftL LENGTH ( FT.' 

STAGE DIfiMETEP fFT5 
LEMGTH.'‘D I BMETER RftTIO 
FlFT SKIRT LENGTH CFTj 
PAYLOAD -SHROUD <FTj 

PftYLOfiD DENSITY XB-- CU FT'? 
INTEPTfiNK SPACING >'FT> 

NOSE LENGTH >:FT> 

LO;=: TANK LENGTH CFT'? 

FUEL TANK LENGTH TT'' 

TOTftL TANK VOLUME 
LOK TANK VOLUME 
FUEL TANK VOLUME 
MING: 

I.IING RPEft >-'SP FT> 

MING LOADING '-'LBS--SP FT!' 

MING SPAN 'FT - ' 

STRIJCTUPAL MING SPAN 
ROOT CHORD (FT!? 

THEORETICAL ROOT THICK NEC C 
TIP CHORD <: FT -■ 

TAPER RftTIO 

ASPECT RftTIO 

SHEEP OF FILLET CBEG> 

LEADING EDGE CHEEP <DEG> 

TRAILING EDGE CHEEP ''DEG- 1 

SPANHISE DISTANCE 

DY1 

DYE 

CF 

Cl 

C£ 

C3 

C4 

C5 

C6 

C7 

CS 

•XAM X'2'? 1 
Xftf't C £ 

CDS LAM C--T 
COS LAM C--£ 

CDS LAM 2 EFF 
CLft TRUE 
CLA REF 
VERTICAL TAIL: 

VERTICAL TAIL AREA CSQ FT'? 
HORIZONTAL STABILIZER: 

HORIZONTAL CTAEILIZER AREA CCQ FT? 


3 0 . 0 

5 . 0 
1 0. 0 
40 . 0 
41.6 
81.1 

45883. 
1 £5888 . 


£08.8 
5 0. 3 
4 . 0 0 

103.9 


171731 . 


m I__ 

110. 0 
£ 0 £ . 8 
2 03 '. 6 
44. 7 
3 . 6 
£6. 3 
. 6 0 0 
5. 7 
30. 0 
1 0 . 0 
. 0 
. 0 
5. 1 
96. 4 


£. 9 



. 9 

. 0 


1.5 

. 4 


. 1 

. 96 08 
. 996 1 
8.5371 
• 08 
. 03 


979. 5 
1305. 9 
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FIGURE 22F 


PROGRAM OUTPUT 
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APPENDIX A 


PROGRAM LISTING, 


5 \ 


1 0 
11 
12 

13 

14 

15 
1 6 

17 

18 

19 

20 
21 


24 


2 b 


29 

30 

31 

Z‘C, 

33 

34 
:'5 
3b 




f.i EIGHT ESTIMATING PROGRAM FDR 
A HEAT 3 INK WINGED BOD-ITER 


+++•*+++ +•++■+♦■*■*• 


C 


LOGICAL LH2 
INTEGER I COUNT 

REAL M3’ LBPfiT? MR’ LflMBDF ’ LAMBLE? LAMBTE.’ LAMC41 ? 
+ LAMC42 ’ L AMEFF j LPEF ? LAMC 2 1 j LflMC 22 ? LMO 2E ? 

♦ LSk I RT 5 LEN >•. Ill’Ll NSTG ’ LQ'r ITK ’ LFLTK ’ LF' 


HAMEL 1ST.' IN- 


+■ 

+ 

+• 

+ 


ENG? RANGE, THRVRC? LH2 ? MR j I.IMAINj LDRATj LNOSE* 

L SK I PT ’HLAMIN’LI NS TG j THPAE j TO L ? USRRT , 

TAPER? CTCPRT’ BY1B2? LAMBBF’ LAMBLE? LAMBTE? 

NZ’ QMA:=:? TIiiJEEP? HEAT’ TE? AL j RLE? LF’ MDOT ’ 
CGASPP? CFUTPPj C 03TRP? CENTRA’ CENGM? COFIPEI ’ 
CFLPEI ? CAM ACC ? C AFIRE’ CELLOS? COKLOi? CULL 03? 
CULLFL ? C ST65 T ’ CMOS T ? CLG ’ CM I NG ? C-THP' 1 - C I NSTG ’ 
C'SECST ? C I NSUL ? CMT SUL ? C LANCH ’ CABPP ? 

CO FIS VS ? CFLSV3 ? CHEAT ? C EMGMT ? CTDEL ? C AC S ’ C AC STK 
CABTK j CAEF'O ? CSEP? C NAV ’ C I N3T ? CC ON ? C SORCE ? 
CPDUEP? CHYCAIi’ CCDNT. CENT AC? CVEPT? CHORZ? 

C I NFUT ’ CSHOPZ? CLDRG ’ C I NO FIT ? C P P I VI 


DATA 
DA TR- 
EAT A 
DATA 
BATA 
DATA 
BATA 
BATA 
DATA 
DATA 
DAT A 
DATA 
DATA 
DATA 


I'GASPP 0151b-' ? 
'MOST -3. 66-'? 
::TCPAT-L 12-' 
::PPIVS-'.200-' 

; I NFUT--'. 866.--’ 
::OI-=ITRP-'. 00 0395--? 
IENGN--1 00. 0--? 
I'FLRES/O.--? 

. AFIRE-- . 6 U 1 - ? 
COICLOS/. 0 0272/? 
I-ULLFL/. 03 - ? 
ITHRS-l 0 0 027 44 / 
I'LG 001213.- 
I INSTG-- . 01377/ 


CFUTPP/. 0060/ 
CSTG3T- 4. 087 


CIMOFIT- .810- 
CENTRP--. 120/ 
•ijO- IRES/ ij . - - 
CAFIACS/. 0045/ 
CFLLOS.-. 00175--' 
CULLDFI/. 03/ 
CUING- -1781 . -• 


37 

DATA 

CSECST 015 • ’ 

Cl NSUL.'. 03.- 

O 

DATA 

CMI2UL/0. 0- ? 

CLflNCH--. 00 03- * 

39 

DATA 

CABF'R - 878 0 « / ? 

CLDRG/ 6 . 0--' 

40 

DATA 

CO FI -I VS --. 006784-'? 

CFLSVI -. 00678 

41 

DATA 

CHEAT/5. 092-' ? 

CENGMT.-. 0 0 01/ 

42 

DATA 

CTDEL -"75 0./’ 

CfiCS/1530. 

43 

DATA 

CACS-Tk -‘ . 17--’ 

CABTK/. 17/ 

44 

DATA 

U AERO/ . U771-- ? 

CSEP . 0 015/ 

45 

DATA 

CHAV/ 18 00./’ 

C-TNST ‘8. 40 

46. 

DATA 

CCOM- 1450. •- ’ 

CSQPCE -'47. '627 

47 

DATA 

CPOUER-' 1-. 50-"? 

CHVCAD '.5 05-' 

48 

DATA 

CL-ONT . ir! U -- ? 

L ENT AC- '' . 9 U O’. - 

49 

DATA 

FILRMIN 855 / 


50 

DATA 

OVERT -"2. 25/ 

CHORZ -• . 0 0 026 3-" 
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51 

C 




52 



DATA ENG/22. U/j 

THRVflC- 2000000. 

cr “i 
‘J Z‘ 



DATA LH£/. FflLZE. /? 

MP--2. 60 

54 



DflTfi MMfl I N • £ 0746 Oil..' 

? LDPAT--5. O' 

55 



DflTfl REF-240..-'-* 

D I fl- • 6 0 . ■" 

56 



DATA LNDZE. '50. /.* 

LINiTG-1 0. 

57 



DflTfl LoKIPT.'40..'» 

T0L.--5 0 . 

.52. 



DflTfl lilLfiND ••'£ 0 0 0 0 0 0 . * 

MSPflT'lOO.'-- 

59 



DAT fl MCTG •• 575 0 0 0 . j 

THRfiB-"8071 0. •- 

6 0 



IlftTfi MENTPY -'3 0 0 0 0 0 0 . / 


61 



IiRTR TAPER/- .6 00 ' 

D'rlEE- . 0500/ 

6£ 



DflTfl LRMELE--10. OO.-j 

LflMETE-'O. 0/ 

63 

T: 

+++ 

HEAT ZINK DflTfl +++ 


64 



DflTfl TE.-350.-* TSWEEP 

.-'’10..-* HEflT..'40 00 

65 



DflTfl PLEH.-.5-- 


66 



DflTfl- LflMEBF/30, 0-* 

LF--3. 00/ 

67 



DflTfl PCHflM/4 0 0 0 . / 


o 



DflTfl MU NT 5813. 9 - ‘j 

NZ -'3. 000/ 

6? 



DflTfl m I Nb/ 1 1 £5 0 0 . / J 

CZVERT.- . 750 • 

7 0 



DflTfl CSHDPZ/. ISO'" 


71 

70 



DATA QMflK/8 0 0 . -- 


i i— 

73 



PI =3. 141,5 


74 



RflD=57. £95 


75 



DENDK:=71.39 


76 



DENFL=46. 5 


f l‘ 



TEUMP= 0 . 


73 

7 Ci 



WCQHT=0. 


SO 

O 1 

l_ 

r 


READ 65* INi 


o 1 
o c! 



TT0T=EN6^THRVflC 


O I* 



IF '.LH£> DENFL=4. 37 


34 

c 




35 

c 


MAIN PROPELLANTS +++ 


36 

c 




37 



TEMP=MP+1 . 


93 



MDMA I N=MR+l,JHfl I H-'TEMP- 


39 



MFMfi I N=l.ijf'1fl I N ••'TEMP 


90 



V OMft I H=MOMfl I N- "DENO.X 


91 



VFMfl I N=MFNfl I N. -DENFL 


92 



VTMfi I N=V0Mfl I N+VFMfl I M 


93 

c 




94 

qc 

c 

l — • 


PE 11 DUAL PPOPELLfiNTZ 

+■*+• 

7 J 

96 

l_. 

1 0 0 

CONTINUE 


97 



1 ,J G fl 3 P P = C 6 fl S F R+VTMfl I M 


93 



WFUTPP=CFUTPP+WFMfl I N 


99 

■ 


WDXTPP=fCO:iTPP+I.IMftIH‘' 

+ ■ . 00095+TTOT- 

1 00 



l.lESTPP=CENTRP+*.l . l£+TTDT--'CENbM> 


RLE 
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101 

102 

1 03 

104 
1 05 
1 06 
i or 
1 08 
1 09 
1.1 0 
111 
112 


142 

143 

144 

145 

146 

147 

148 

149 
15 0 


liJTRP =l.iH5R3PR+l.«IFUTPP+l<JD:-:TRP+f.JESTRP 

*++ RESERVE PROPELLANTS ++-*■ 

«.ia:«RES=caHPEi+waMniH 
l. ■ I F L R ES = e F L P E S + W F M R I N 
I.JFP R =I.J0XF:E2 +WFLRE 3 

+♦+- SECONDARY PROPELLANTS +++ 

'iifl:iflcc=CRxncsm?TG 
I.!hVEG=. 5+ ''I l.i ! E N T R Y + i > I L ft N D "* 


113 



T P E Q =f.«l H V EG ‘ CL D F* G 


114 



liJDPET=Cfly:FlE+TPEG,-3 

600. 

115 



RF= C . 6+926 . +I.1RVEGJ 

'-ltjDRET+6080. 

116- 



T EM P =- P Ft M G E .-"P F 


117 



TEMP=EHP >.TEMP> 


118 



ldfiXfiB=blfiVEG+a. - 

TEMP"- 

119 



l-JR^P =l.JR;<RC Z +MRVRE 

12 0 

c 




121 

c 

+++ 

INFLIGHT LOSSES +++ 

1££ 

c 




123 



i-IFLLOS =C FLLOS +I.IFMRIM 

124 



uo:--:los=c qhlds ♦i.iomr in 

125 



I.ILOSS *WDXLOS+biFLLOS 

126 

c 




127 

c 


TANK CONTRIMMENTS 


128 

c 




129 



MaTK=iiioMRirHi-.io:==:TPP+f.joNF:Es+!>!o:-=;LO 

130 



I.IFTK=I.JFMRIN+I.IFUTPP+l.iFLPE:+!-IFLLO 

131 



VOTK=MOTK -- <DENO» • 

1 . -CULL ON :- > 

132 



VFTK=I.JFTK--- (DENFL+ c 

1 . -CULLFL.) 

133 



VTTK-v’OTK+VFTK 


134 

c 




135 

c 


GEOMETRY- 


136 

c 




137 


10 

CONTINUE 


138 



DIR=PEF,-LDRRT 


139 



RflD I US= . 5+D I fi 


14 0 



RLEN=PRD I US+ . 7 07 0 


141 



TVOL=l . 3333+PI+PRDIUS+ -'RLEN++2 ' 


TEMP=. 7854+- f .D I H++-2 :> 

TEMP 1=2. +ALEM 

LOFITL^ v -rVOTK-TVOL.) - TEMP"- + TEMP 1 

LFLTK= < Cv'FTK-TVOL> --'TEMP:' + TEMPI 

TEMP 1=LN03E+L SKIRT 

T E M P '2 = P E F - T E M P 1 

TEMP3=L0XTK +LFLTK +L I NSTG 

DIFF =TEMP3-TEMP2 

IF ORBS’ ‘DIFF" 1 .LT. .SOjGG TO 50 
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151 : 
152: 
153: 
154: 
155: C 
156: C 
157: C 
153: 
159: 

1 6 0 : 
161 : 
16 £: 
163: 
164: 
165: 
166 : 
167: 
163: 
169: 
170: 
171: 
172: 

174: 

175: 

176: 

177: 

173: 

179: 

1.80: 

181: 

132: 

1 83 : 
184: 
185: 
186 s 
187: 
183: 
189: 
190: 
191 : 
192: 
193: C 
194: C 
195: 
196: 
197: C 
198-: 
199: 
200: 


REF=PEF + ODIFF+TOL- 'PEF"> 
60 TO 1 0 
50 CONTINUE 

LREF*TEHP1+TEMP3 

♦♦♦ lil I MG GEOMETRY +++- 


.7>.JIMG=I.ILRMD.--U!2RfiT 
: HOP Z=C3 HO RZ+- ?I>J I NG 
3 V ER T- 03 V ER.T+-8H0P2 

CF'=.:QRT c. I.2WIN6+ c TRH ''LfiMELE.-RflH • +TRM •-LRMBTE -"PREi 5 > •> 

-*■- cl . -THPER++25 } 

CT=TRPEP+CP 
E2=SliJI NG {CR+CT'S 
B=2.+B 2 
BY 1 =E2+DY 1 B2 
DY2=E2-riY 1 

CF=DYiVTRN OL-RMEDF -PRlc 
C3=DY1 +TRN <LRMBLE.'RRDJ 
C4=DY1-*TRN CLRMBTE 'RRD» 

C1=CP+ 03F-C3> 

C2=C P- '"C3+C4 :i 
C 5=C 1.- 8 . - f CE-2. +C4> 

C6=UP '’8 • — 1 C£.-‘2 , +C4) 

C7=. 75+C 1 75-*-C£+C4> 

L 8= . 75+CR- . 75+C2+C4, 1 
LRMC41 =fiTHN •- C7 -'BY 1 > +RRD 
LRMC 42 = fiT RH c C 8 -'EY 1 .> +RRB 
CRV1=>‘C1+C2> -'2. 

CRV2=«.C£+CT> -'2. 

LRMC21 =RTRN CC5 -'D Y 1 
LRMC22=RTfiM •'C6.-BY1 > 

TEMF-CRV 1 +HY 1 +C RV2+BY2 

LRMEFF= '.:LRMC4 1 +CRV 1+DY 1 +LRMC 42+C EV2+DY2> -- TEMP 
CO 3 L 2 1 = Cp 3. L H M C 2 1 
C0SL28=C0S «:lrncssj 

C0SRM2=i'C03L21+CRV1-*-DY1 + C02L22+C RV2+BY2;- . TEMP 

3TPUE=£. +TEMP 

flTPUE=B++2- , :£TRIJE 

CLRTRU— 02 . *P I ♦RTRUE'i ' 02 . +SQRT * 4 . + '’RTRUE.-C 0-SflM2'i ++-2'' 1 i --RRB 
CLRPEF=CLRTPU+ C£ TRUE - C I..J I MG> 

RREF =E+-+2--:'l.lING 

REPDDYNRMIC 3URFRCE? +++ 

S‘3PRli=B -’C03L22 
TPOOT =C TCRRT +CP 

tempi=i.iemtry+nz+::prn+, so+^hing- tpodt 

1..I I.J I NG=CW I MG-*- < OTEMP 1 1 0 0 0 0 0 0 0 0 0 67 0> 

TS=7 0. 
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am 
a 02 

203 

204 
2 05 
206 
207 
2 OS 
2 O'? 


C 

c 

c 


21 0 
ail 
ala 

213 

214 

215 
a 1 6 

217 

218 

2 1 9 

220 
221 


223 

224 

225 

226 


229 

230 

231 


C 


CfiLL HSWING iT?» TE< HEfiT:. FiL? LAMBLE< SUING’ RLE » IdhllNG* WI.IINGH • 
I'J VERT=C VERT + -'.SVERT ++ 1 . 1 13? 

TEMP 1= < OdENTF'Y I MG' 1 ++.60? + -.SH0RZ++1 . 2) * •. QMfiY++. SO,- 
I.JH0RZ=CHDRZ+TEMP1 

CfiLL HSU I MG as j TE , HEfiT ’ RL » TSOEEP j S-HORZ . RLEH < I.IHOPZ .< WHORZH 
l,i::ljpF=liJlitIMG+I.HilIMGH+MVERT+LiHaPZ+lilHDPZH 

+++ EDDY STRUCTURE +++ 

W I NFUT =C I NFUT+VFTK 
TS=-30 0. 

IF-:LH2.:«T3=-422. 

CfiLL HSTRMK fTSi TE? HEfiT * FIL ? DIfij LFLTKs i.l INPUT ? kiFUTHT? 
ill I NO!- IT =C I M014T +VUTK 
TS=-29? . 

CfiLL HSTfiNK -ITS- TE’ HEfiT? fiL? DIfij LONTK’ WINQXT* UOYTHT;' 
l.iTHRST=CTHRSl + '-:fTOT++l. 15) 

TEMP=S CRT ORfiD I US-++2 + LNQSE++2) 

TEMP=CMOS T+TEMP+P I+PfiDI US 

T ~ i ij > 

CfiLL HSTfiNK fTG j TEj HEfiT j fiL’ DIfij LMDS E* TEMP - UNOST') 

MNOG T=UNO 3T+TEMP 
USTGS T-CSTGST+P I +B I fi+LNOGE 
TEMP 1 =I.JOTK+liiFTK+i.i I NFUT+kU MONT 
TEMP 2=C I NSTG+ 0'LF+ -.TEMP 1 ? ++ . 3 0 0 > 

IjHMSTG=TEMP 2+ -:LREF++-. 90? + c'DIfi++l . 05') + -:QMfiY;++. 1?7‘< 
TEMP=!.IINFUT+l-iMDST+i.JSTG2T+!.JIMa:=‘:T+iiiTHPS.T+iifIH2TG 
USECS'T =C 3ECGT+ TEMP 
UEODY=TEMP+I.JD^THT+I..IFUTHT+)..ISECST 

+++~ INDUCED ENVIRONMENTAL PROTECTION +++ 


234 

235 

236 

237 
23 S 

239 

240 

241 

242 

243 

244 

245 
246 * 

247 

248 

249 


TEMP=2 . +P I.+PfiD I u : +lo:-;tk 
C++++- non for propane booster ++■+ 

TEMP=2 . +P I +F:fiD I U S+ LOKTH +LFLTK? 
I.J I NS UL=C I NS'IJL +-TEMP 
I..JM 1 3UL-CM I S'UL 
!'iTPS=l*i I NSUL+WM I SUL 
C 

C +++ LAUNCH AND RECOVERY +++ 

C 

l.i 1 L fi M C H = C L fi N C H + i> I E L 0 1 •.! 

ULG=CLG+- 0.1LAMD++ 1 . 25- 
liJLRDKilLfiNCH+ULG 
C 

C +++ PROPULSION +++ 
f: 
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I.1ENG=TT0T.*-CENGM 
EfiB-UENTRY •" -'CLDRG+THPfiE '■ 



o th nj m t}- (J-, ,.£i r- CO a. o i-i OJ fn -t u'i <£< P- CO >T< o t-i OJ CO in •■£> P- CO cr< o n oj CO rl- If) P- CO O' o 1-1 OJ ro Tf in tf) r- 0 "t it. o 

in in in in in in in in ui in '-o <& <o *jj ■£• >0 ■£■ *jd m) '.o r-- n_ r_ r_ r-- r - r - r- n co co co co co co co co co co o. g-' c- o> o-> a. a*, a-, g-, <j, o 

OJ OJ OJ OJ OJ OJ OJ nj OJ OJ OJ oj OJ OJ OJ OJ OJ OJ OJ OJ OJ OJ Oj nj I\| OJ OJ OJ OJ OJ OJ OJ OJ OJ OJ OJ OJ OJ OJ OJ OJ OJ nj nj nj nj nj oi OJ OJ 00 


IJ fi £ PR= CfiE P R +E HE 
1 JOB ' TK= CflBT K +UR' = fi B 
UBOTDT=lilDOT+EHG 
!.JBOTOX=HR+t'JriOTnT'- CMP+l . ;■ 

WDDTFL=I»»DDTQT^ <MR+1 . ;< 

TEMP=LO:YTK +LI NSTG+LFLTK + . 85+L SK I PT> 

f .1 □ y.z vs = c 0 v ♦ w d ot □: : *t e mp 

TEMP=.85+c.LSkIRTj 

blFL3'YS=CFL SYC ♦MDOTFL+TEMP 

i.jFEEn=i..ia::sYS+i..fFLSYS 

UENGMT =CEHGHT +TTOT 

UP PC Y3‘=CPRC YG ♦V 0 T K 

IF <'LH8') biPRSY3=WPPSYS+ 1 0+VFTK> 

MHEflT=CHERT+. 7854+ <:B I fi*+8 •< 

'l.iPRnP=MENG+!.lfiEPP+<.lfiBTk?+I.IFEEB+l.iPR:YC+k!HERT+t« , ENGMT 

C 

C +++• ORIENTATION.* CONTROL:: rnb cepe rat ion +++- 

c 

TBEL=CTBEL+ C >: THPVRC-- F'CHRM j ++-1 , 85"' 

Ijl :TRE=ENG+ * <• 081 +TBELj++. 778> 
ljlfiCS=CACS+ '.UGTG++. 1385"' 

I'JRC GTK=CRCCTK+ CWfiXACC' 

lilREPO =: CfiEPO+ '!l*ILflNB++. 689) + <’ CLF'EF+B" 1 ++. 887> 
l'J3EP=C.Z EP+WiTG 

!.«IQRGUL=WSTfiB+UflCG+klfiC5TK+!<lfiER0+UCEP 

C 

C +++ RV IONIC C +++ 

C 

I.ifiV I ON=CNflV+i C I NCT+LREF"' +CCOM 
C 

C +++- ELECTRICAL SYSTEM +++ 

C 

kiPOk!ER=CCORCE+ <.WRV I □N-+-+ , 473"- + CCPOWEP+LREFj 

c 

C +++- HYBPflULIC RNB PNEUMATIC SYSTEM ++> 

C 

TEMF- •: *:. CS'k! I NG+CHOF.Z+S VERT> +QMAX+ . 0 0 1 ++ 1 . 3 1 85"' + 

+ £ c LREF+B) ++ 1 . 061 "■ 

I.IHYCRB=C HYCRB+ CTEMP++. 849> 

C 

C +++ BRY HEIGHT +++ 

C 

kfBPY=l'ISUF , F+hlBOBY+t«!TF , S+klLRD+!>JF , POP+l.lOP.ilJL+!i!fl , v'IOfHlilF , OklEP+!.!HYC 


C ♦+♦■ BE SIGN RESERVE CONTINGENCY +++ 
C 

klCOMT =CCONT + ONT+TBUMP ’ 

I ij C ONT=CCONT +IJBR Y 
C 

C +++- EMPTY HEIGHT +++ 
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I'J E M P T Y =M Ii R V + l.l COM T 


301 
3oe 
3 03 
3 04 
3 05 
3 06 

307 

308 
3 03 
310 
311. 

312 

313 

314 

315 

316 

317 

318 
c-i 3 
>20 

321 

322 

323 

324 

325 
126 
:27 
:28 

323 
33 0 

331 

332 

333 

334 

335 


jo r 
3 3 8 

339 

340 

341 

342 

343 

344 

345 

346 

347 
343 

349 

350 


C 

c 


+++ BOOSTER LIFTOFF WEIGHT +++ 

UBLnWssUEMPTY+WMfllN+WTRP+blFPP+WflJiP+WLDSS 
+++' JETT ISDN WEIGHT FOR ROBOT ONLY ++■+' 

HTJETaWBLOM-WMRIH 
+++ WEIGHT AT STAGING 

I 'J 3 T G = W B L O W - l.i i M fi I M-WLOS S-WSTGS T 
*** ENTRY WEIGHT AT ATMOSPHERIC INTERFACE 

WEHTRY=WBLOW-WoTGST-WMRIN-WLOS 3-WEGTPP— f 'CENT AC+W A! : !RCS:> 
+++- WEIGHT AT LANDING +++ 

WLAt^!=ljlI:L0f<!-lilCTG.IT-i<JMfiIN-WL033-li.lA::P-fiJE6TF , P-!'IGA.i'PR-ti!0:;TRP 

♦♦♦ MASS FRACTION CONVERG LOOP ♦++ 

L:LflM=WMA IN-- I.JBLQW 

IFO-LAM .LE. BLAMIN' 1 GO TO 110 

TBUMP=1 00. 

GO TO 100 
110 CONTINUE 
TBIJHP=0. 

+++' CONVERGENCE CHECK ++-*- 

WD I FF=l.ilBLDWP— WBLOW " 

IF ’.ABC cTJDTFF-' . LT. 1 . :■ GO TO 500 
IF • ICOUNT .LT. 50> GO TO 51 
WRITE '"G.t 9nijiT:i 
51 CONTINUE 

I C OUNT = I COUNT + 1 
WBLOWP=ljlELOW 
GO TO 100 

500 CONTINUE 

+++ WEIGHT PERCENTAGES +++ 


TEMP= 10 0.. .••WBLOW 
PCT 0 1=WSUPF+TEMP 
PCT 0£=UIBOD Y+TEMP 
PCT 03=WTPS +TEMP 
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351 

352 

353 

354 


35b 

35? 

358 

359 
*J 6 u 
361 
363 

363 

364 

365 

366 

367 

368 

369 
■370 

371 

372 

373 

374 

375 

376 


379 
33 0 
38 1 


384 


oo _i 


C 

c ++■+ 
r 


: ++*■ 

s 

1 000 
2000 

3 0 0 0 

4 0 0 0 


PCT 04=1. ILPD+TEMP 
PCT05=WPROP+TEMP 
P 0 T 0 6= W □ P 8 IJ L + T E M P 
PCT 07=1 iJRV I OH+TEMP 
PCT08=t.iPDl.JER+TEHP 
P CT 0 9= WHY CfiD+T E M P 
PCT1 0=WDPY+TEMP 
PCT11=WC0HT+TEMP 
P C T 1 2= I il E M P T Y > T E M P 
PCT1 3=t.JTRP+TEMP 
PCT14=WFF'R+TEMP 
PCT 1 5=l.fL088+TEMP 

pc:ti6=i..!r:<:p+tenp 

PCT 1 7= WMA I M+TEMP 

GEO MET PIC LENGTHS FDR PROGRAM OUTPUT +++ 

LEM«'i:»=0. 

lem-:2''=lnd.:e 

LEM 03 1 =LMQ ZE+ALEM 

LEM =LEN +LDYTK- '.'2. +ALEN'< 

LEM 1 5‘> =LEM ‘‘4' 1 +ALEN 

LEM <6> =LEM US:- +LINSTS 

LEM ''7.3 =LEM «6> +ALEN 

LEM (Q'j =LEM ■'?'> +LFLTF - 2 . +ALEN '« 

LEM -:9'3 =LEM OB-' +RLEM 
LEM 1 0> =LEN c'9'3 +LSK IPT 
LEM 11 '> =LPEF 

FORMAT STflTMEMTS +++ 

FORMAT ? - STAGE 1 HEIGHT STATEMENT: •’ > 

FORMAT ''64 

FORMAT l . ' ZTRGE 1 GEOMETRIC CHARACTER I Z TIC 3: 

FORMAT " SYSTEM AMD SUBSYSTEM WEIGHT PERCENTAGES: 


386 

387 


390 

391 

. Q p 


50 
6 0 
70 
80 
9 0 


00 FORMAT-"' 
00 FORMAT'.-' 
00 FORMAT'.- 
00 FORMAT •- 
00 FORMAT * - 


FU 3 EL AGE s 
laJIMGS > 

VERTICAL TAIL: O 
HORIZONTAL STABILIZER: 

I!! CONVERGENCE CHECK? PECHECK 


IHPUTZ !!! 


I.il P I TE 1 6 ? 1 U U U 3 


393 

WRITE '-.6 » 20 0 0..' 



394 

CALL 

WTO UT < 

•-AERODYNAMIC SURFACES' - 1 < 

WZURF ■< 10. •- 

395 

CALL 

I.1TOUT ■" 

'WING- 

i 8 j WW I Mb ? 10. 3 


A y 8 

CALL 

WTOUT ■: 

HEAT 

SINK PENALTY »WIHG> 

' i 2? l.H.JIMGH’ 1 0. ' 

397 

CALL 

WTOUT 

•' VERT I CAL T A I L ' > 2 ? W VERT < 1 0 . '• 

398 

CALL 

WTOUT •" 

'HOPIZ 

□MTAL ZTfiBILIZER-' * 2 

i WHOPZj 10. '• 

399 

CALL 

WTOUT-. 

- HEAT 

SIM H PENALTY '"STAB- 

‘i2> WHORZH- 10.,' 

4 0 0 

CALL 

WTOUT 

- BODY 

STRUCTURE' » 1 ? WEODY? 

1 0. .3 
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401 

402 

403 

404 

405 

406 

407 
409 
409 

41 0 
41.1 
4T2 

413 

414 

415 

416 
417. 
419 
419 

42 0 
421 
452 

423 

424 

10. ■' 

425 
426- 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 
44 0 

441 

442 

443 

444 

445 
446- 

447 

448 

449 

450 

451 


CALL i'JTOUT •! •' I MTEGRflL LOI i TANK " 2 , !..l I MDRT , 1 0 .. -• 

CALL WTOUT CHEAT LINK PENALTY -'LDR.? ■' - Hi WORTHT, 1 0. '■ 

CALL UTDUT •! INTEGRAL FUEL TANK , 2 , 1.1 1 MFUT > 1 0 > 

CALL UTDUT CHEAT ZINK PENALTY • FL> ■ , 2 , UFUTHT .10. ’• 

CALL WTOUT f ' THRfJCT ZTRUCTUPE ■' , £ , UTHPST , 1 0 . 

CALL I.JTDUT *:■' INTERTANK STRUCTURE ‘ j 2>WI-H5TG, 1 0. ■ 

CALL WTOUT ■' " NO Z'E Z TRUCTURE - , 2 j UNO IT, 1 0 . J 
CALL. f.lTOUT I NTERSTAGE STRUCTURE ' , £ > W5TGST , 1 0 . "■ 

CALL WTOUT C SECONDARY STRUCTURE ■” , 2 , USECT, 1 6. > 

CALL I.JTDUT • I MDUCED ENV I RONNENTAL PROTECT I ON ■' > 1 , I.ITP Z- .10. 
CALL I.JTDUT «! •" TANK I MSULPTI ON " . 2 . M I N CUL ,10. 

CALL WTOUT •: •' M I SCELL ANEOUS , 2 , UN ITUL, 1 0 . - 

CALL I.JTDUT': -LAUNCH AND RECOVERY SY Z TEN " , 1 , 1.JLPD , 1 0 . 

CALL I.JTDUT C 'LAUNCH GEAR '" , 2 , ULANCH , 10. "’’ 

CALL I.JTDUT < LAND I MG GEAR'' , 2 . 1.ILG >10. 

CALL I.JTOUT ■: ■'PROPULSION- , 1 , WPPOP> 1 0. t 
.CALL UTDUT MAI N ENG I NEC , 2 . 1.IENG ,10. > 

CALL I.JTOUT AIRBRERTHINS ENGINES*' > 2, MflBPP.j 10. 5 
CALL UTDUT C AIR-BREATHING TANh AGE ", 2, WRBTH ,10.'- 
CALL UTDUT >. ' PROPELLANT FEEB SY ITEM " ,2, IJFEED >10. :> 

CALL UTDUT •! ■' NA I N ENG I HE MOUNTS " ,2, UENGMT >10. J 
CALL WTOUT ■! "PRESSURIZATION SYSTEM' * 2, WPPZYS , 1 0. "■ 

CALL WTOUT 'CHEAT SHIELD-' > 2, MHEAT, 10. > 

CALL UTDUT OR I ENT AT I ON, CONTROLS L SEPARATION ■' , 1 , UDRSUL, 

CALL UTDUT *:-MA IN ENGINE GIMEAL SYSTEM ", 2 , USTAB , 1 0 . > 

CALL WTOUT >! •' ACS •' , 2 , WfiCS > 10. ' 

CALL WTOUT CAC'E TANKAGE' - , 2, MAC! TK, 10. 

CALL UTDUT >’ "AERODYNAMIC CONTROLS" , 2> I.IREPO> 1 0. 

CALL UTDUT < ■" SEPARAT I DN SYSTEM ' , 2 , US EP > 1 0 . > * 

C ALL WTOUT <. " A V I ON I CS ' , 1 , WAV I ON , 1 0 

CALL UTDUT <" ELECTRICAL POi.lEP SYSTEM" > 1 , MPDUER, 1 0 . > 

CALL UTDUT <" HYDRAULIC & PNEUMATIC SYSTEM" ’ 1 , UHVCAD> 1.0. :■ 

UR I T E 1 6 , 2 0 0 0J> 

CALL UTDUT < "DRY WEIGHT - * , 1 , 1.IDPY> 10. • 

CALL UTDUT. C " D ES I GN RESERVE " , 1 , 1.ICOMT >10. .> 

C ALL UTDUT < EMPTY WEI GHT ‘ > 1 > WEMPT Y >10. '• 

WRITE- 6, 20 00;. 

CALL UTDUT <- MAI N PROPELLANTS ' , 1 , 1.JMAI N >10. > 

CALL UTDUT ' O; : I Di ZER ' >‘2 , 1.JOM A I N , 1 0 . -> 

CALL UTDUT < "FUEL" , 2, UFMAIN, 10.'? 

CALL UTDUT ■' ' RES I DUAL PROPELLANTS " > 1 , UTRP >10. "■ 

CALL UTDUT TRAPPED bfiSSES''? 2, 1.IGASPR, 1 0. 1 
CALL WTOUT •' TRAPPED DRIDIZEP" >2>W0HTPP, 10. < 

CALL UTDUT ' TRAPPED FUEL " , 2 , UFUTRP ,10. 1 

CALL UTOIJT f TRAPPED ENGINE PROPELLANT ■' > 2, UEGTRP, 1 0. .« 

CALL UTDUT c " RESERVE PRDPELL ANT CM, UFPR ,10. 

CALL UTDUT " OR I D I ZER ■' , 2 , I.JORRES ,10. '« 

CALL UTDUT -'FUEL •' > 2 > UFLRES >10. > 

CALL UTDUT •' ' INFLIGHT LOSZEZ ' > 1 , ULD33 , 1 0. 

CALL UTDUT »' " OH I D I ZER " , 2 > WORLD Z , 1 0 . > 

CALL UTDUT ■: - FUEL " , 2 > UFLLDS >10. -■ 
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452 

453 

454 

455 

456 

457 

458 
45? 
4b 0 
46 1 
468 

9 10. J 


463 


464 

465. 

466 

467 

468 

469 

470 

471 
478 

473 

474 


475 

476 

477 

478 
47? 
48 0 


481 


488 

483 

484 


485: 

486 * L 

487: 

488 : 

489: 

490: 

49 1 : 

498: 

493 : 

494: 

495: 

496* 

497: 

498: 


i^. ’-4 ‘*4 


5 0 0 


CALL WTOUT " flUH I L I ARY PROPELLANTS ' * 1 * WAYP.* 1 Cr. > 

CALL WTOUT •" AC S PROPELLANT ' j 8 j MACROS *10. -■ 

CALL WTOUT A’IRBREATHING ENGINE FUEL - ‘ * £ j WA«AB * 10. :* 
h I p I TE ( 6 .* 8 u 0 U? 

CALL I.ITOUT >-•- BOO; TER LIFTOFF WEIGHT' * 1 * WBLOW* 1 0. > 

WRITE <6 .* £ 0 0 0? 

CALL WTOUTi'-'MRSS FRACTION * 1 * YLRM* 1 0. 3 > 

(JR I TE < 6 * £ u 0 0 1 

CALL WTOUT ' ‘'BOD STEP. WEIGHT AT STAG-ING ' * 1 .* WSTG* 1 0. '• 

WR ITE <-.6 * cl U U U '* 

CALL WTOUT '/'ENTRY WEIGHT < ATMOSPHERIC IMTERFRC E? * 1 * WEHTPY 
WRITE <6 ?’£ 0 0 O') 

CALL WTOUT £ 'BOOS TER LANDING WEIGHT * 1. .* WL AND * 10. ? 

WRITE 6* 80 00.? 


WRITE '!6* 4000? 

MR I TE '.6 ?’ c! U U 0.5 

C ALL WTOUT < ' HEROD YN AN I C SURFACES j 8 .* F'CT 01*1 0 . 4 J 

CALL I.ITOUT '/'BODY STRUCTURE 4 8* ACT 08 * 1 0. 45 

CALL WTOUT <-' ENVIRONMENTAL PROTECTION' * 8.* -PUT 03* 1 0. 4':< 

C ALL WTOUT < 'LAUNCH AND PECOVEPY ' * £ » PCT 04 *10.4' 

CALL WTOUT '-i •' PROPULC I ON •'.*£* PC TO 5 .* 1 0 . 4,« 

CALL WTOUT <-'ORIENTATiaN/CONTPOLi 'SEPERATION- jS^PCTOG? 10. 4> 

CALL WTOUT < • A V IONICS' .*8.* PCT 07* 1 0 . 4.5 

CALL WTOUT < " ELEC TR I CAL POWER I YSTEM * £ * PCT 08 *10.45 

CALL ‘WT.OUT < " HYDPAUL I C L PNEU.MAT I C C YSTEM • * 8* PCT 09* 10.4' 

CALL WTOUT < " DRY WE I GHT ■' * 1 > PCT 1 0* 10.4' 

C A LL WTOUT >.. - DEC I GN RESERVE ' * 8* PCT11* 10. 4 > 

CALL WTOUT ■' ' EMPTY WE I GHT •" * 1 .* PCT 1 £ .* 1 0 . 4.' 

■C ALL WTOUT < -' MAIN PROPELLANTS •' * £ .* PCT 17*10.4' 

CALL WTOUT'/ TRAPPED PROPELLANTS ' 5 8.* F’CTl 3, 1 0.4? 

CALL I.ITOUT ■•■‘RESERVE.. PROPELLANTS .* £, PCT 14 * 1 0 . 4'< 

CALL WTOUT. ‘/' INFLIGHT LOSSES - *£*PCT15* 1 0. 4.5 
CALL I.ITOUT •' AUK I L I ARY PROPELLANTS * £ * PC T 1 6 .* 1 0 . 4"- 

WRITE ''6? 3000" 1 
WR I TE ' 6 * £ 0 0 0 •' 

WRITE <6*5000? 

CALL WTOUT '• •' TOTAL LENGTH ■ FT.' " * 1 * LFEF* 1 0. 1"' 

CALL WTOUT •! •' STAGE D I AMETER '.FT? y > 1 .* D I A .* 10. 1 ? 

CALL I.ITOUT • •■' LENGTH - D I AMETER PAT I O/N LDP.HT *10. £> 

CALL WTOUT < ■' AFT' SK I PT LENGTH ''FT'-' " ? 8 * L Sfc I RT .* 10.1 > 

CALL WTOUT < ' I NTEPTANK S PfiC I NG 'TT'- ' * £ * L I NS TG * 1 0 . 1 .5 
CALL WTOUT >/ NOSE LENGTH ■ FT? ' * 8* LNOSE* 10.1' 

CALL WTOUT <- LOX TANK LENGTH >:FT? ' * 8* LOYTK* 1 0. 1? 

CALL WTOUT •, ■' PUEL TANK. LENGTH « FT'' •’ * £ * LFLTK j 1 0 . 1 '- 
CALL WTOUT </ TOTAL TANK VOLUME I NHL ULLAGE' * 1 .* VTTKj 10,5 
CALL WTOUT ■ ' LOY TANK VOLUME " j £ * VOTK *10. ? 

CALL WTOUT ''' FUEL TANK VOLUME' .*£« VFTK, 1 n 


69 



501 s 
50£: 

_5 03 : 
504: 

5 05: 

5 06 : 
507: 

5 03: 
509: 
510: 
511: 
512: 
513: 
514: 
515: 
516: 
51?: 

5 IS: 
519: 
520: 
521 : 
522: 
523: 
524: 
525: 
526 : 
527 : 
528: 
529: 

5 3 0 : 
531: 
532: 
533: 
534: 
535: 
536 : 

. 1> 

t=;Q-7 » r* 

.j j i ■ i_. 

538 S'C 

539: C 

540: 

5-il : 

542: 

543: 

544: 

545: 

546: 

547: 

548 : 

. 549 : 
550: 


!; i P X T E ...6 5 6 U U U.) 

CfiLL U TOUT f •- W I MG fiREfl CSQ FT.) ■" .* 1 > SW I MS *10,1' 

CALL WTOUT 1 - WINS LORD I MG '.LBS- CQ FT; •’ * 1 » WGRAT * 10. 19 
CALL WTOUT < ' W I MG 3PRM • FTf • 1 j B j 1 0 . 1 '■ 

CALL WTOUT ••STRUCTURAL WING GRAM f FT,' '? 1< 1 SPAM ? 1 0 . 1 .) 

CALL WTOiJT ROOT CHORD *‘FT.) ’ .* 1 j CP j- 1 0.'l;> 

CALL WTOUT <' THEORETICAL ROOT THICKNESS <• FT) ' .* 1 .* TF’OOT j 1 0 . 1 '' 
CALL WTOUT -TIP CHORD '.FT; ■' * 1 * CT * 1 0 . 1 
CALL WTOUT •: ■’ TAPER RAT IO ‘ j 1 * TAPER -.10. 3 « 

CALL WTO'JT * •' ASPECT RATIO ' * 1 * AREF ? 10. 1 :* 

CALL WTOUT */ SWEEP OF FILLET '"DEG!) ' * 1 j LAMBUFj 1 0. !:• 

CALL WTOUT O’ LEAD I MG EDGE SWEEP ''DEG'' 1 ' > 1 .* LAMBLE *10.1) 

CALL WTOUT <•• TRAILING EDGE SWEEP CDEG; ■’ * 1 > LAMBTE* 1 0. 1> 

CALL WTOUT ■' •' i PAHl.l I SE D I STAMC £•" * 1 * D Y 1 B2 * 1 0 . 1 '■ 

CALL WTOUT C •' D Y 1 ' * 1 j DY 1 .* 1 0 . 1 ) 

CALL WTOUT t •' DYE ' j 1 .* DYE -10,1) 

CALL WTOUT f ' CF"‘ » 1 > CF , 1 0 . 1 ; 

CALL WTOUT >: • Cl".* 1* Cl.* 1 0 . 1 .« 

CALL WTOUT ■' ■* C2 •* j 1 * CS j 1 0 . 1 .) 

CALL WTOUT ■: ’ C 3 ' .* 1 * C3 *10.1) 

CALL WTOUT C ' C4"' * 1 * C4 * 1 0 . 1 ; 

CALL WTOUT C5 - * 1 .* C5 *10.1 ; 

CALL WTOUT < C6 • 5 1 * C6 5 1 0 . 1 > 

CALL WTOUT C ' C?-' 5 1 * C7 * 1 0 . 1 ... 

CALL WTOUT < - C8-' j 1 .* C8 *10. 1; 

CALL WTOUT ‘.LAM C- 2; 1 ' .* 1 j LAMC21 * 10.1' 

CALL WTOUT ' ‘-LAM C •£"' 2- .* 1* LAMC'22* 1 0. 1; 

CALL WTOUT < -'COS LAM C •' 1 -' .* 1 j C03L2 1*10. 4.) 

CALL I.ITOUT '- •' C OS LAM C •■-£ ■'.*!* C OS L22 *10. 4; 

CALL WTOUT < COS LAM 2 EFF Ml) LAMEFF j 10. 4 J 
CALL WTOUT C ■’ C LA TRUE * 1 * C LATPU *10. 2"> 

CALL WTOUT < •' OLA REF " .* 1 .* CL AREF j 1 0 . 2'- 
WRITE ‘ 6* 70 00.) 

CALL WTOUT'-' VERTICAL TAIL AREA CSQ FT> ‘ .* 1 .* S VERT.* 1 0. 1"‘ 

W RITE '■ 6 * 8 0 0 0 ■' 

CALL WTOUT '••-HORIZONTAL STABILIZER AREA CSQ FT; ' * 1 ? SHORE.* 1 0 • 


++4- UNIT OUTPUT +++ 

CALL ADDPEL Cl 4? 3HLEN* 1 1 j LEN.) 

CALL ADDP.EL C14* 6HW0MAIN* 1 * WOMAIN'- 
CALL ADDREL ‘.14* 6 HWFMAINj 1 * NFMAIH"' 
CALL ADDPEL Cl 4* 6HV0MA I N * 1 * VOMfl I M) 
C ALL ADDREL Cl 4* 6 HVFMR IN * 1 j VFMA I M> 
CALL ADDPEL C 1 4 * 6H.VTMA IN - 1 * VTMfi I N'< 
CALL ADDREL U4* 6HW6ASPR5 1 j WGA3PR) 
CALL ADDREL Cl 4* 6 HMFUTRP » 1 j WFUTRP') 
C ALL ADDREL C14* SHWO^TRP * 1 .* WOKTRP; 
CALL ADDREL <14* 6HWESTRP* 1 * WEGTPP’' 
CALL ADDREL ‘14.* 6HWTRP .* 1 * WTRP •' 
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CALL ADDREL (14- 6HW0XPES 1 * UQr IRES' 1 
CfiLL flDDREL <14* bHfOFLRES* 1 * I.IFLPES" 1 
CALL flDDREL < 14 * 6HWFPP - 1 - IJFPR> 
CALL flDDREL '14- 6HI.Jfil4fiC 3 .* 1 * UAHRCS J 
CALL flDDREL *14* bHUfltf RB * 1 * 

CALL flDDREL *14* bHWflJiP * 1 j t.lflLP') 
CALL flDDREL <14* 6HUFLL0S 5 1 .* UFLLOS ■ 
CALL flDDREL *14* 6HM0XL02 * 1 j UOXLDS ' ' 
'CALL flDDREL <14* 6HI.IL053 * 1 .* ULOSS ■ 
CALL flDDREL <14* SHblDTK * 1 j WQTiO 
CALL flDDREL <14* 6HWFTK .* 1 .* MFTK ■ 
CALL flDDREL <14* 6HVDTK .* 1 - VQTH • 
CALL flDDREL < 1 4 * 6HVFTK * 1 * VFTIO 
CALL flDDREL <14? 6HVTTK * 1 * VTTK :■ 
CALL ADDPEL 1 14 j bHDIA *1*DIA) 

CALL flDDREL <14* 6HPADIUC* 1 * RADIUS:* 
CALL flDDREL < 14* 6HALEM * 1 * ALEN"> 
CALL flDDREL <14.* 6 HSU IMG * 1 .* CWING’- 
CALL flDDREL <14* 6H2VEP.T * 1 * SVERT' 1 
CALL flDDREL <14* SH SHORE * 1 * SHORES' 
CALL flDDREL <14* 6HCR00T .*1.*CR* 

CALL flDDREL <14.* 6HCT .* 1 .* C T"' 

CALL flDDREL <14* 6HBS * 1 * Be" 1 
CALL flDDREL <14* 6 HE * 1 * B t 

CALL flDDREL <14* t-HBY 1 * 1 * D Y 1 > 

C ALL flDDREL *14* 6HDY2 * 1 * DY2> 

■CALL flDDREL >.14* 6HCF * 1 * CF ■ 

CALL flDDREL < 1 4 * 6HC 1 * 1 * C 1 :■ 

CALL flDDREL <14* 6HCS .* 1 * C2> 

L ALL flDDREL <14* 6Hl_"3 .* 1 .* U3 ) 

CALL ADDPEL < 1 4 * 6HC4 * 1 * C4!' 

CALL ADDREL <14.* 6HC5 .* 1 * OS'* 

CALL ADDREL < 1 4* 6HCt- *1*C6'> 

CALL flDDREL <14* 6HC7 * 1 * C7> 

CALL flDDREL >14* 6HC8 * 1 * CS;> 

CALL flDDREL >.14* 6HLAMC41 * 1 * LRMC41' 1 

CALL flDDREL >.14* 6HLAMC4S * 1 .* LAMC427 
CALL flDDREL >!14* 6HCAV 1 * 1 .* CAVll- 

CALL ADDREL <14* 6HCAV2 * 1 .* CflV£'.> 

C ALL flDDREL <14* 6HLAMC2 1*1* LAMCS 1 > 
CALL ADDREL <14* 6HLRMC22 * 1 .* LANC2£:> 
CALL ADDPEL <14* t-HLAMEFF* 1 * LAMEFF) 

C ALL ADDREL <14* 6HAREF .* 1 * AREF « 
CALL ADDREL <14* CHi-JI-JING * 1 * IMG"> 
CALL ADDPEL <14* 6HMI.J I M6H * 1 .* Ml.l IMGH’ 1 

CALL ADDREL <14* SHUVERT * 1 vERT> 

CALL - flDDREL <14* SHMHOPZ * 1 * l.JHORZ:> 
CALL ADDPEL <14* CHUHORZH* 1 * MHORZH * 
CfiLL ADDPEL <14* 6H1.J5URF * 1 * I-I3UPF:- 
CALL flDDREL <14* SHI-J I MFUT .* 1 * l«J I NFUT J 
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tfi iTi or. cji rr, nr, or, nr, cr, or, rr, or-, or* tf - . cr> .t* it, ov it, a- cr. it, cr» 0* cr> tf, a. ij, or, ch tf, a-, a, or, 0 , 


601 
6 02 
6 03 

604 

605 
6 06 
6 07 
j5 U« 

09 

10 
11 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


C. _l 

8 6 

2 1‘ 
i"t 

i 

29 

30 

31 


34 

35 

36 


O C; 

39 

40 


42 

43 


C 


C FfLL ADDPEL Cl 4 > 6HWFUTHT 
CALL ADDPEL Cl 4? GHWINOFT- 
CALL ADDF'EL Cl 4 i 6HMQFTHT ? 
CALL flBBPELC 14» 6HMTHRST.1 
CALL ADDPEL C14i 6HI.IN0ST i 
CALL ADDREL C 14» 6<H!ilSTGS’T i 
CALL ADDREL C 1 4 1 6HI..I I NSTG i 
CALL ADDPEL Cl 4.- 6HI.JC EC3T i 
CALL ADDPEL -'1 4.- 6HI.JB0DV - 
CALL ADDREL C 1 4 j 6 HW I MS IJL ? 
CALL ADDREL Cl 4? 6 HWMI SULj 
CALL ADDREL Cl 4’ 6HWTPC 
CALL ADDPEL C 1 4 ? 6HWLAMCH ? 
C ALL ADDPEL C 1 4 * 6HULG < 

CALL ADDPEL '.14- 6HI.ILPD 
CALL ADDPEL >14, 6HI.IEHG - 
L-ALL ADDREL \ 14? 6HWREPP j 
CALL ADDREL ■ 14.i 6HklAETK , 
CALL ADDREL Cl 4) 6 HI-IFEED j 
CALL ADDREL C 1 4 j 6HWENGMT ? 
CALL ADDREL c 1 4 1 6HI.JPP CYC i 
CALL ADDREL Cl 4.i 6H1-IHE AT ? 
CALL ADDREL Cl 4i6Hi.lRP0P 5 
CALL ADDPEL C14i6Hl«lS:THB j 
LALL ADDREL ',14? 6HMACS > 
CALL ADDPEL Cl 4 1 SHklflC CTK j 
CALL ADDPEL C14i6Hf.!flEP0 1 
CALL ADDPEL ''14i 6H'0>EP ? 

CALL ADDREL C 14 j 6 H WORE UL j 
CALL ADDPEL Cl 4 j 6HI.JAV ION? 
CALL ADDREL c 1 4 , 6HUPDWER j 
CALL ADDPEL 1 14? GHkIHYCAD? 
CALL ADDREL * 1 4? 6HI.IBPY 5 
CALL ADDREL cl4i6HklcnMT .1 
CALL ADDREL Cl 4? 6HI.1EMPTY > 
CALL ADDREL '"14? 6HI..IBLDI.J ? 
CALL ADDPEL Cl4i6HklTJET 1 
CALL ADDREL Cl 4i6HI..ISTG 5 
CALL ADDPEL C14i 6HkiEMTRYi 
CALL ADDREL '’14? 6HWLAHD 1 
CALL ADDPEL ■ 14 1 6HYLRM 1 

EMD 


1 ? klFIJTHTV 
1 ? i.*J I NO y:t ■* 

1 .1 i.jd:=:tht:* 

I j i.lTHRSTV - 
ltlilMOiT) 

I I 111 : TGS TV 
1 <1.1 1 NSTG.:' 

1 1 1.JS ECS T'' 1 
1 UiEDDYV 
liUINSULV 
1 .< WMISUL^ 

1 - l.JTPC; 1 

I ? tilLANCH" 1 

I I IjILG -* 

1 1 1.-ILPD,' 

I ? I..JEMGV 

I I i.JABPRV 
1 .? kIPBTIO 
1 j l<IFEED.> 

1 j WEN6MTV 
1 j I.IPPCYCV 
1 5 1.1HEATV 
1 ? 1..IPR0PV 

I ? L-ISTAEV 
1 " 1.1 AC 

I I MACSTK5 
1 1 1.IAEPDV 

1 j kl'CEPV 
1 7 klORCUL.3 
ljMfiVIDH? 

1 7 l.iPOkiER,' 

1 7 WHYCADV 
1 7 MDRY"' 

1 1 WCONT> 

1 1 1.IENPTYV 
1 ? I..IEL0ki,' 

1 . 1.JT JET'> 

1 ? I.JC TGV 
1 j I'JENTRY'' 1 
1 7 1..1LANDV 
1 7 FLAM.- 
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1 :C 


□Kj 


4 


3 

•5 

10 

11 

12 

13 

14 


IS-: 

17: 

13: 


++++++++++++- HEIGHT ESTIMATING PROGRAM FOR 
-»»■ » »» » ». » » »»» ft SJINSGB STAGE- >»» ■ »»» ■ »» ■ » ■ » >♦»» -- 

LOGICAL LH2 
INTEGER I COUNT 

REAL ME, LBPAT rMP r LAMBBF , L AMBLE , LRMBTE, LRMC4 1 ? 

+- L AMC 42 LRMEFF , LRER, LAMC 2 1 ? LRMC22 ,-LNO 3E , 

L in IPT t LPRY r LEN 1 2.* , L I NCTG , LOSTh , LFLTI-: ,LF 

NRMEL I STx I Nx ENG. THPVRC > LH2 * MR. WMfl IN , LHPRT , LNOS E r 
+- LS r. I RT , YLAM I N , L IMS TG , THRRB , TOL , id SRAT, 

■*- TRPER , CTCRRT , BY 1 B2 , LAMBBF., LAMBLE, LRMBTE , 

NZ, C CHQPZ , QMAY , LF , kIDOT , PRYLDj PAYLB,CPAYLB, 
CGASPR yCFUTRP, COXTRP 5 C ENTRPr CENGM , COYRE-I , 

+- CFLPE3 .v CSVEPT, C RJ IRCC , CRNRB , CFLLOC y COYLOS j CULL 

+~ CULLFL j GHOST, CSTGST, CW I MS » CTHPS 1 » CLG, CINSTG, 

+■- CS EC ST , C I NS UL , CM I SUL , CLANG H , CRBPP , 

+- COYSYS , CFLSYS , C HERT y CEMGMT y CPBEL y CROC y CACSTfc , 


1 9? 


CRBTKyCR 

20: 

+- 

GROWER > C 

21 : 

+- 

C INPUT . C 

22 :C 
23: 

BRTR- 

CSASPR-- . 01-5 IS--', 

24: 

BATA 

3N03TX-3. 26 - y 

25 : 

BRTR- 

CPRSY3-- .200-x 

26: 

BRTR- 

DPBYLBxS.x 

O “7 • 
w i * 

BRTR 

CINFUTx. 637x t 

23: 

BRTR 

COYTRPx. 0 00395-x y- 

S9r 

BRTR 

CEMGM'75. 0' - 

30: 

BRTR 

CFLPES-- . 012 - y 

31 : 

BRTR 

IRXRBx 0. 00 Ox, 

32: 

BRTR 

COXLlJS-. 0 0272.x y 

33: 

BRTR 

CULLFL-'. 03X, 

34: 

BRTR 

i'TCPRTx. 08.x 

35: 

BRTR- 

CTHPClx. 0 00274--, 

36 : 

BRTR 

CINSTG -4 01377- 

37: 

BRTR 

CCECCT 015x, 

•■JO* 

,_f »_» • 

BRTR 

CM I SUL-0. Ox, 

33: 

BRTR 

CRBPP -'0. 00 00 

40: 

BRTR 

COXSYS.-. 0 067S4X y 

41 : 

BRTR 

CHERT -5. 092 

42: 

BRTR 

CTBEL.-750. 

43: 

BRTR 

CRCSTK.- . 1 7.- , 

44 : 

BRTR 

CREPO- . 0771 'y 

45: 

BRTR 

CNRV- 1300.x . 

46: 

BRTR 

i.CDM - 1450. y 

47: 

BRTR 

: POWER.- 1 .50Xy 

-43: 

BRTR 

CCONT-'l. - . 

49: 

BRTR 

=:lrmin.-.sioo - 

50: 

BRTR 

CVEPTX2. 25-x 


CFUTPPx . 001 lx 
CSTGST -2. 4R- 


CIMOXTx.31 Ox 
CENTRPx. 12 Ox 
COYPES. .012 •• 

CAN ACS-- . 0 045 
CFLLOSx. 00272--' 
;ullo:=:x. 0 3x 

CUING xl 781 .X 

C LG--' .00121 3x 

C I N3UL x . 03.- 
CLfiNCH-. 0003 - 
CLDPG-' 5. 0-- 
CFLCYSx . 006734.- 
CEHSMTx. 000 lx ' 
CRC i-- 1530. - 
CABTkx. l?x 
C EP .0015 X 
CIHDT.-3.40x 
C30PCEX47. S27x 
CHYCRBx.5 0.5x 
CENTRC.--.300x 

:HOPZ -. no 0263- • 
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51 1 C 



52: 

BATA ENS '7. O.-'j 

THRVftC^l 000000 

53: 

DRIB LH2--.TBUE..-*, 

MR.'S. 0 0.-- 

54: 

DATA- MMAI N.-'39 16406. 

LBRAT--5. 0 - 

J-J * 

BATA- PRVLB---1 062 374. / 


56: 

DATA- REF '240. \« 

D 1 ft.--’6 0 . • 

cr-' - 
•J ( » 

BRTft LNOSE.-30./5 

LINSTG--10..- 

58: 

BRTR- L8f= IPT--30.-'j 

TOL--‘50. •• 

59: 

BRTR- WLftMD.* 2 0 0 0 0 0 . . • < 

i.lSPRT.- 10 0..- 

60: 

BRTR M8T5--575000. - j 

THPRB.--50000.. 

61: 

BRTR MEISTRY- ‘3 0 0 0 0 0 . 


62: 

BRTR TRPER-- .4 000-- » 

BV1B2-- , 2*0 00.-" 

63: 

BRTR LRMBLE---55. GO.- j 

LBMBTE.-10. 0..-- 

64: 

BRTR LRMEBF.^70. 0-- .* 

LF.-'3 . 0 0 

65: 

BRTR PCHAM.-40 0 0 . 


66: 

BRTR MBQT-'2 1 45 . 9-' j 

NZ--3. 00 0..-- 

& — > «■ 
>«• i • 

BRTR I.IW INS/ 11250..'* 

CSVEPT.--. 750- 

68: 

BRTR C3H0RZ-- . 180- 


69: 

~ r i - i » p 

BRTR QMfiX.'S 0 0 . 


* U - L* 

71 : 

PI =3. 1415 


72 : 

RRB=57. 295 


73: 

BEN0X=71 . 39 


74: 

DENFL=5G. 45 


75: 

!.ICOHT=0. 


76: 

TBUMP-0 . 


77 : L 
78: 

PERB <5* ISS> 


> :?• L- 
8 0 : 

TTOT =ENS-*THRVRC 


31: 

IF c.LH2.' DEMFL=4. 37 


82 :C 



33 :C 

+++- MAIN PROPELLANTS ♦+*- 


84: C 



35: 

TEMP=f1P+-l . 


36: 

i,!Om I N=M!?+WMfi I IS-- TEMP 


O i * 

!.IFMRIH=lilMRIN--TEMP 


3y - 

V G M A 1 N =1 d 0 M AT H.-'DEMOK 


89: 

VFMftI M=MFMfl I H -'BENFL 


90: 

VTMRI N=VOMRI N+VFMRT IS 


9 1 : C 



ao « i“ 
O'". » r* 

RESIDUAL PROPELLANTS 


7 0 • •_ 

94: 

100 CONTINUE 


95: 

!.JGA-SPP=CGASPR+VTMRIN 


96: 

iilFIJTRF'=C FUTPP+MMftI N-i-t 

. 0 0 0 1 5-^TTOTV 

. t ■ 

wo:-:trp= <co:-:tpp+uma i n:> 

+- c . 0 0 0 9 5 -*-T TOT 

98: 

i.lEGTPP=CENTRP+-*:i . 12*TTaT.-CENGM> 

99: 

MTPP =WSB3PP+MFUTPP+WONTRP+WEGTPP 

1 0 0 : C 
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101 
102 
1 03 
104 
1 05 
106 

I 07 
108 
1 08 
110 

I I 1 
1 12 

113 

114 

115 

116 

117 

118 
11 -4: 
120 
121 
122 

123 

124 


C 


C 


125 : 

126 : 

127 : 

128 

123 

130 

131 

X • -> u- 

133 

134 

135 


C 

C 

c 


136 

137 

138 

139 

140 

141 

142 

143 


144 

145 


146 

147 

148 

149 

150 


C 

r 


***- RESERVE PRDPELLfiNTS -*-*+- 

WQHPES=CnXPE?»MOf1R'IN 
I.IFL P E S=CF LRES ♦WFMRI N 
lilFPP -l»)OX RES +W F L P ES 

SECONDRPY PPQPELLRNTS +-*■+- 

WfiXReS=Cfi,XRCS+USTG 
TEMP=i.lEHTPY "WLftND 

WAX RE =C RY RB *-< CTEMP-1 . /< 1 , +-TEMP) > ♦HENTPY 
i.iRYP- =i.iR:=;Rc 3 -m-jr:- :re 

+++- INFLIGHT LOSSES 

HFLLOS=CFLLOS-HJFMRIH 

wo:-:los=coxlos-h.iomr-in 
hloss =ho:=:lo3+i.!fllos 

+++- TRNK C E3NTR I NliEHTS *++ 


WO'TK=WOMR-I H-HaI □: -:TPP+blOXPES+y OKLDS 
W F T K =ki F M R I N +!.ij FU T R P + 111 FL R ES -HJ FL L OS 
VOTK^MOTLV c'DENQY-^-*-' 1 * -GULLETS > ' 
VFTK=iOFTK.- <BENFL+->- 1 . -CULLFL- 1 .5 
V T T K = V DTK +-V FT K 


GEOMETRY -*-*-*- 


10 CONTINUE 

BIR=PEF,'LBRRT 
PftBIUS=.5+-IiIR 
RLEH -PRD I US +-. 707 0 ... 

TVOL=l . 333 3+P I +RRD I U3+- | '.RLEN+->-8 > 
TEMP-. 7354+--D IR-^2!' 

TEMP 1=2. +RLEN 

LO.YTK=' >rVOTK-TVOL> ■TEMP'- +- TEMPI 

LFLTK- •; ■-VFTK-TVOL> TEMP'* +• TEMP 1 

LPRY=PRYLB.-' ‘"CPRYLD^. 7354+-'.'BIR++2> 

TEMP1=LM03E+LSK IRT 

TEMP2=PEF-TSMP1 

TEMP 3=LOHTK +LFLTK'+L I NETS 

DIFF =TEMP3-TEMP2 

IF >:RBS '-‘DIFF'j .LT. .50) GO TO 50 

REF=PEF +- ■''DIFF+TOL 'REF> 

GO TO 10 
50 CONTINUE 

LPEF~TEMP 1 +-TEMP3 

+++- !i.l I NG GEOMETRY +++■ 
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151 1 C 

152: SMING=WLRNB.- W2PRT 

153: 3H0RZ -C3H0RZ+-Sb! I NG 

154: I 7EPT=CS VEET+2HDPZ 

1 55 : CP=-3QRT e’Zi.l I HG-+*:TRM •'LRMBLE --REIO +-TRM --LRMBTE.- RRB> -• > 

156: +- >' 1 . -TRPER++2> > 

157: CT=TRPEP+CR 

1 53 : B2=SW I MG.-' ' CP+CT'- 

159: B=2. +B2 

160: DY1 -B2+DY1B2 

151: BY2=B2— BY 1 

162: C F-BY 1 +TRN •: LRMBBF •'PRB> 

1 63 : C3=D Y 1 +-TRM LRMBLB'RRB > 

164: C4=BY 1 >TRM >:LRMBTE -‘ERB.' -1 

165:. C 1 =CR+->..CF— C3 j 

156: C2=CR— YC3+C4' 1 

1 67 : C5-C 1 .-2 . - <X 2.-2 . +C4/< 

1 68 : C6=C R •-2 . - «’C2.'2 . +C4> 

169: C7~. 75+C1— •" . 75+6 2+C 4> 

170: C3-. 75+CP- . 75+C2+C4"’ 

f7i : LRMC41=RTRM c.C7.'BYl :- +RRB 

172: LRMC42=RTRM <X8 ‘D .*! ■ +RRB 

173: CRV 1 = « C 1 +C2> . '2 . 

1 74: CRV2~ £ C2+CT'* --'2 . 

1 75 : LRMC2 1 =RTRM £ C5 -'BY 1 j 

1 76 : LRMC22=R-TRM <“C6 'BY 1 j 

1 77 : TEMP=CRV 1 +BY 1 +CRV2+B Y2 

1 73 : LRMEFF= - LRMC4 1 +CRV 1 +DY 1 +L RM C 4 2 +C R V 2 +B Y 2 • TEMP 

179: COSi_21=CC3S <LRMC21> 

ISO: COB L22-C OS £.LRMC22::* 

131: C0-?RM2= 0203L2 1 +CRV 1 +BY 1 +- CD 3L22+CRV2+B Y£ .-TEMP 

132: rTPUE=2.+-TEriP 

133: RTRUE=B++2.-"2TRUE 

134: CLRTPU= k f '.2 . +P I +RTRUE' 1 <".2 . +-S QPT f '4 . +- CRTPUE^CD 2EM2> ++2'5 > ••• PRIi 

1 35 : CLRPEF=CLRTPU^2TPUE.-’Sbf IMS* 

136: RREF =B++2 ••'SUING 

1 37 : C 

139 SC +++- REPOBYNRMIC 2UPFRCE2 +++- 
139: C 

1 90 : S SPRN=B. • CDSL22 

191: TPODT=CTCPRT+CR 

1 92 : TEMP 1 =!.IENTPY+NZ+33PRM+. 5 O+Sbl I MG 

1 93 : 'iJUH NG~CbJ I NG+Y « TEMP 1 1 0 0 0 0 0 0 0 0 0 . > ++-. 670!' 

194: bJVEPT =C VERT +< Z VEPT +-+-1 . 1 13.* 

1 95: TEMP 1 = (. CbJENTRY.-'Sbi I MG> ++; 6 0 j +YS HOPZ++-1 . 1 2;* +*,QMP:v++-. 3 Gj> 

196: '.JHDRZ=C!-fOR-Z+-TEMPl 

1 97 : UICURF=WU I MG+WV ERT+WHDRZ 

1 93 : C 

199: C +++-BDBY STRUCTURE +++- 
200: C 
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fu tu tu ro fu ro ru ru ru fu ro tu ru ru ru ru ro ro ro ro ro fu ro ro ru ro ro ru ro ru ro ru ro fu ru ro ru fu ro ru ry ro ro ry ry fu ru ro ro ro 

01 .y. .f* 4* 4 *. 4* -fi. ^ 4* to to co CO i.O i.O i.O i.O co cu ro ro ro ru ru ro ru ro ru ro *-* >-* h* »-* t-* »-* >-* »-* ^ h* o o o o o q o o o 

o y) oo -y civ ut -i* co ro t-+ o '0 Cu ~-.j cjv iji 4^ iVi ro *-* o '0 co Si cr* »_n -a co ru i-^ o ’0 co ---j crv uj & uj ru *-* o 'y co --i crv i_n -i* co ro •-* 

-> >< «■ ** >1 »• ■■ *• >■ ** •« M M M >< >< «• M X X x 1 . x X •'* ►« «< *« *• x ► « •« X .. X X X • X X X ►« *« «* »« M 


yl I NF'JT -C I MFUT+VFTk 

u r moxt=c i nont+votk 

I'lTHRS T =CTHP3 1 *- f TTOT +*-l . 15> 

TEMP=C£'RT<PFKDIU.r++2 +- LNCI2E*+2> 

w noct^cnost+p-i^rrii i uc ♦temp 
W 3T6ST=CSTG3T-*D I fi-H.N0 3 E+P- 1 
TEMP 1 =i>!0TK+y PTH -H.I I NFUT+W I WOXT 
TEMP2-C I NCTG*-'.. cLF+STEMP l;> ,< +♦-. 3 0 0> 

hi IHSTS—TEMP2+-CLREF++-. F00 ♦“CDIR+^l . 03> 177V 

TEMP=W I NFUT+}JMDST+ I ^STS3TH> I NQXT+MTHRTT+W I NETS 
UCECBT=CCEC 7T+TEMP 
hiBOBY^TEMP-HdSECCT 

++*- INDUCED ENVIRONMENTAL PROTECTION +++- 

temp =2 . +p-i +prd i uc-kloxtk+lfltio 

!'j r N3UL -C INIUL+TEMP 
! .IMI2LIL=CMICUL 
WTPS=W I N 2UL-H-IM 1 SUL 


LAUNCH- hNH RECOVERY ♦++- 

yLRHCH=CLRNC H+WBLOM 
WLG=CLG-*-''MLRNI>-»+i . 25> 
l< I L R B — W L RN C H*Hcl L b- 

PROPULSION +++- 

U ENS=TTQT. 'C ENSM 
TEMP=MENTRY.-- iCL.DRG+THPflS* 

WPBPP-C RB P R+-TEM P 
vJRBTK‘=CRBTK HJfiXflB 
ylBOTOT -M30T +-ENG 
■'.JBOTOX=MRHIDOTOT.' '-MpH-l . j 
ylD0TFL=WD0T0T.'- •'MR+-1 . > 

TEMP=LCIXTK+L I MSTG+LFLTK-Hf . 25HSK I RT!> 

ya: c v s^caxs yg*w dotqxhtemp 

TEMP=. 25*-:LCKIRT'* 

M FL3 YS =CFL3 Y5 HI D OTFL+-TE M P 
yFEED=W0:<3Y3+MFL3Y? 

•UEMSMT -=CEN6MT ♦TTOT 
i JPR2 YB=CPPS YS ♦VOTK 
IF <LH£V WPP3 YS=!.iPRS Y'i +■ < . 1 Q+VFTKV 
-MHEPT^CHERT ♦. 7'354+' '^B I R^^E.' 1 

: '!PP0P=ljJEN5+v;iRBPR+yRBTK +yFEED+WPP3YC+wlHEPT +iiiENGMT 

■*-++- ORIENTRTIDH4r CONTROLS RND SEPERfi-TIQM ++>• 

TBEL=CTIiEL+'*' c THR VRC.- PCHTOD ++-1 . 23'* 
iilBTRB=EHS+C ( . 021+TDELV **-. 7? 3> 
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3D 


251 

252 

253 

254 

255 
25s 
257 
253 
259 
250 
25-1 


254 

265 

266 
257 
263 

269 

270 
271- 

O T*3 


W3CS —CBCS+-'. WSTS-*-*-. 1 335? _ 

W3C STk’’~C RCS T K '■ Id 3Y 3 C 3 ? 

W3EP0=C 3EP D Od L 33 3 ■++-. 639? >:LREF-*-B? 237? 

WJEP^CSEP+WSTG 

: ij D 3-3 U L - W 3 T 3B +6.1 3 C S+WRCSTK -HiJflEPO+W ? £P 
3V-r ON I CS 

WRV I QN=CN3V+-» : C I NCT+LREF? +CCOM 
+++- ELECTR-IC3L SYSTEM 

'■iPOWER-CSORCE^W3VIOH+>-, 473? +■ '.'CPOWEP-HiREF? 

■»-*- HYDR3ULTC 3ND PNEUMRTIC SYSTEM **-*- 

TEMP— * t *■ SW I NG-PSHORE-Ki VEPT - 1 +-QM3X+-. OUl? ■+■+■1 . 3 1 25.- 1 +- 
+~ c t LREF+B? ++-1 . 061 ? 

W HYC 33 -C HY C 3D -*4 T EMP +-+~. 349? 


DRY HEIGHT ++*- 

MDPY*WSUPF+WBa2)Y+WTPE l +WLRD+WPPnP-i-f.iaP^UL+!JRViarmiPaiJER-HrfHY«: 


274 

275 
27 6 
277 
273 


23 0 


233 

2-34 

285 

236 

237 
233 
239 
290 
2?-l 

292 

293 

294 

295 

296 

297 
393 


>»- DBS ISM RESERVE CONTINGENCY *-*+• 

MCONT— WCDNT +- '■'CCDriT^TBUMP? 

I F CMCONT . LT. - 0 . ? WCOMT= 0 . 

+++- EMPTY WEIGHT +++■ 


WEMPTY=W3)PY+WCCmT 

+++- 3T36E LIFTOFF WEIGHT WITH P3YL03D 

W3LOW=?IEMPTY+P3YL3+!dMHTN+WTRP+atFPP+W3:-=:P-H.!Ln3-: 
ST3GE WEIGHT LIFTOFF WEIGHT MI HU I P3YL30D *>+- 
WPBLOW=WBLOU-PBYLD 
+++■ WEIGHT 3T INJECTION- 


S.fSTG— WBLOW— WSTG3T— idflB-IH— WL0S3 
ENTRY WEIGHT 3T 3TMEJSPBERIC INTERFACE 

WENTRY=WSLOW-WSTG ST-PBYLB-WM3I M-WLOS 3-WEGTRP- •'SENTRC frWRXRC 


299: C 

30 0: c WEIGHT 3T LENDING +h*+~ 
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■301 :c 
302: 


{TPP 


303 

304 

305 

306 

307 
303 
309 

31 0 
311 
312: 

313 

314 

315 

316 

317 
313 
31? 

32 0 

321 

322 

q =>q 

324 

325 

326 


C 


c 


330 

331 


“!'“l “I ! 

334: 

335: 



333: 
339 !' 
340: 
341 : 
342: 
343 : 
344: 
345: 



34c 


34? 

350 


'iJLFtMIl^yBLOM— M3TS3T— PR-YLD— yrifllN-MLOSZ— !>1EGTPP— oIGRTPP— ! ,iJO 


+++~ MFCS FPBCT I ON CONVEPS LOOP- +++- 

MLRM=i.JHR I ,*V ■: WBLDU-PfWLD) 
ifc=:lrm .le. :-:lrmin.>gq to no 

TBUMP=1 0 0 . 

50 TO 100 
110 CONTINUE 
TBUMP=0. 


+++- CONVERGENCE CHECK +-*-+- 

WDIFF=WBLOWP- : .IBLOU 
IF iflBS<WDIFF> .LT. 1.!* 50 TO 50 0 
IF a COUNT .LT. 50"« GO TO 51 
iiJP I TE C6 t 9 0 0 0"> 

51 CONTINUE 

I COUNT = I COUNT+-1 
WBLOHP=WBLOU- 
GO TO 100 

500 CONTINUE- 


WEIGHT PEPCENTRbES ■*■+■*- 

TEMP-1 00. ' CWBLOW-PflYLDj 
PCT01 =W-i:URF+-TEMP 
P C T 0 2 = W B 0 B 1 . J +-T E M P 
PCT 0-3— UTP3+-TEMP 
PCT04=WLRD*T5MP 
PCT05=WPROPH’EHP 
PCTOS=WOR 3UL+-TEMP 
PCT07=WRV ION+-TEMP 
PCT 03— WP Q W ER+-TEM P 
PCT 09=U H VCRB+TEMP 
PCT1 0=WBPYVTEMP 
PCT1 l=WCONT ♦TEMP 
PCT12=WEMPTY+TEMP 
PCT1 3=WTPP-HTEMP 
PCT 1 4=itlFPP+TEMP 
PCT 1 5=WLnSS*TEMP 
pcti6=ur:-:p+-temp 

PCT 1 7=!.JMP I N+-TEMP 

+++- GEOMETRIC LENGTH? FOP- PPOGPRM OUTPUT w- 

LEN c T.> - 0 . 

LEN <d:> =LN03E 
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351: LEN<3'-=LE?K2> 

352 : LEN •- 4!> -=LN02E+ALEN 

333 : LEN f 5> =LEN 1 4> +LQXTK— •'S . ♦RLEN.'* 

354: LEN •o!' =LEN <5> +ALEN 

355 : LEN <7\> =LEN c 6> +L I NS T6 

356 : LEN *.‘8> =LEN <7> +ALEN 

357: LEN •‘3> -LEN >• 3> +LFLTK- (2 . +ALEN.* 

353 : LEN •" 1 0 j =LEN *:?> +ALEN 

353: LEN *115 -=LEN •: 1 0‘J +L3 K I PT 

360 : LEN t 12 ' -LPEF 

6 c? 1 : u- 

362 :C FORMAT STATMENTS +++- 


363 rC 

364: 1000 FORMAT STAGE' 2 WEI GET ST ATEMENT : ' j 

365: 200 0 FOR MAT <64- 

366: 3000 FORMAT STAGE 2 GEOMETRIC CHARAC TERIST ICS : ' j 

36?:. 4000 FORMAT SYSTEM AND SUBSYSTEM HEIGHT PERCENTAGES : < 


363 

362 

370 

371 


374 

375 


373 

330 

331 

332 

333 

334 

335 


5 0 0 0 
6000 
7000 
300 0 
90 00 


339 

390 

391 

392 

393 

394 

395 

396 


QC; 

399 

400 


FORMAT 'S' 
FORMAT >: ’ 
FORMAT O' 
FORMAT ■*' 
FORMAT*:-' 


FUSELAGE: 

WING: -•.« 

VERTICAL TAIL: '> 

HOP IZONTAL STAB I L I ZEP : ' 

!** CONVERGENCE CHECK? RECHECK INPUTS ! * ! !* 


WR I TE '-.6 , 1 0 0 0 !' 

WRITEK6* 2QQ0'- 1 

C ALL WTOUT < ' AEPOBYNAM I C SURFAC ES ' ? 1 , US URF, 1 0 . j 
CALL ill TOUT < W I N&-' , 2 ? WW I NG ? 1 0 . 

CALL WTOUT C ' VERTICAL TAI L ' ? 2 ? W VERT ,10. "■ 

CALL WTOUT c! -' HOR IZONTAL STAB I L I ZER '0 2, WH0R2 .10. " 

C ALL WTOUT " BODY 3TPUC TUPE" r 1 * WBOBY ? 1 0 - 
CALL WTOUT < ' I NTEGRAL LOM TANK ? 2 ? W I NOXT, 1 0 . > 

CALL WTOUT *: ' I NTEGRAL FUEL TANK ' . 2 , W I NFUT ? 10.!* 

CALL WTOUT ■ ' THRUST STRUCTURE ' , 2 . WTHR ST, 10.5 
CALL WTOUT < ‘ INTER TANK STRUCTURE-' , 2, W I NSTG, 10.; 

CALL WTOUT A ' NOSE S TRUC TURE" * 2 - WNOCT, 1 0 . ■ 

CALL WTOUT t ' I NTERS TAGE STRUCTURE ' , 2 ? WS TEST ,10. "■ 

C ALL WTOUT t - SECONDARY STRUCTURE '' , 2 , WSEC ST, 1 0 . 

CALL W TOUT t -' I NDUCED ENV I RONMENTAL PROTECT I ON ‘ , 1 , WTP S , 1 0 
CALL WTOUT < TANK I NSUL AT I ON ' , 2 , W I NSUL ,10. j 
CALL WTOUT f ' M I SCELL ANEOU S " , 2 , 1.IM I SUL ,10. > 

CALL WTOUT *: ■* LAUNCH AND RECOVERY SY Z TEN Hi, WLRD , 1 0 . .* 

CALL WTOUT < ''LAUNCH SEAR ' , 2 , WLftNCH , 1 0 . > 

CAL L WTOUT - LANDING GEAR -' , 2 , WLG , 1 0 . '■ 

CALL WTOUT < •' PPOPULS I ON' - , 1 , WPROP ,10. 

CALL WTOUT - MAIN ENG I NE S ' , 2 , WEN 6 ,10. :« 

CALL WTOUT {' AIRBREATHING ENGINES • , 2, 1.IABPR, 1 0. ) ■ 

CALL WTOUT •''' AIPBPEATHIN6 TANKAGE •' , 2,-WABTS« , 1 0. 

CALL WTOUT >: ' PROPELLANT FEED SYSTEM '' , 2 , WFEED ,10. '■« 

CAL L WTOUT •' MAIN ENG I NE MOUNTS ■ , 2 , WEMGMT , 1 0 - > 

CALL WTOU T > ' PRESS UR I ZAT I ON S Y STEM' * 2 , WPPS YE ? 1 0 . 
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401 : 
402: 

403: 

404: 

405? 

4 OS: 

407: 

408: 

409: 

41 Or 

411: 

4-12: 

413: 

414: 

415: 

4-1 6 :■ 

417: 

413: 

419: 

45 0 :■ 

421 : 

422 r 

423: 

424: 

425: 

426: 

427: 

423: 

429: 

430: 

431 : 

432: 

433: 

434: 

43-5: 

436: 

437: 

438: 


CRLL WTOUT <’ HEAT SHIELD-’ .* 2* WHEAT* 1 0.) 

CALL WTOUT ORIENTATION*- 'CONTROLS 8. SEPARATION '9 1 , MOPSUL > 

CALL WTDUT ' MAI N ENGI ME GT MB AL i Y STEM " * 2? WSTAB , 1 0 . 

CALL WTOUT < ' ACS' ’ ''2 * WACS * 1 0 . ) 

CALL WTOUT *! ' AC. 3 TANKAGE' - *2* WACSTK * 1 0 . .• ' 

C ALL WTOUT <. ftEROB YN AMI C CONTROLS ‘ * 2 * UfiERO *10. /■ 

CALL WTOUT « •’ SEP A PAT I ON SYSTEM •' * 2 *WSEP * 1 0 . 

CAL L WTOUT C \AV IONICS' i 1 * WAV ION* 1.0. "> 

CAL L WTOUT c ELECTR I CAL POWER 3 Y S TEN M. WPBWEP .*10. i 
CALL WTOUT •' HYDRAULIC 1 PNEUM AT ICS ‘i'S TEM * 1 * WH-YCAD *10. > 
WRITE <6 *20 00) 

CALL WTOUT t DRY WE I GHT ' * 1 * UIBPY *10. 

CALL WTOUT C " DEC I GN RESERVE ’ * 1 * WCONT* 1 0 . > 

CALL WTDUT < ■’ EMPTY WE I GHT ' , 1 * WEMPTY *10. ) 

WRITE 1 6*200 0> 

CALL WTOUT < ** PAYLOAD " * 1 * PAYLD * 1 O'. .' • 

WR I TE 1 6 *'2 0 U 0) 

CALL- WTOUT * ' M A I N PROPELLANTS - * 1 * WMAI N *10. > 

CALL WTOUT *1 ' ON I D IZEP ■’ * 2 * WOMA I N * 1 0 . 

CALL WTOUT C ' FUEL ’ * 2 .* WFMA I N - 1 0 . * 

CALL WTDUT f ' RES I DUAL PROPELLANTS ' .* 1 * WTRP *10. - > 

CALL WTOUT £ - TRAPPED GAS S ES '■* 2 *-WGAS PR * 1 0 . .* 

CALL WTOUT C TRAPPED ON IDIZER ' * 2 * I.IONTRP* 1 0. > 

C ALL WTDUT -1 TRAPPED FUEL' - * 2 * WFU TPP .* 1 0 . :■ 

CALL WTDUT <• TRAPPED ENGINE PROPELLANT- * 2* WEGTPP* 1 0. .* 

CALL WTOUT < ' RESERVE PROPELLANTS ' - ‘* 1 * MFPR *10. > 

CALL WTOUT '7 0NIDTZER' - *2* WONRES* 1 0 . > 

CALL WTOUT (.' FUEL ‘‘ *2* WFLRES* 1 0. ■ 

C ALL WTDUT - « - ' - 1 NFL I GHT LOSSES - * 1 * WLOS S *-10. > 

CALL WTDUT -7 ONIDIZEP' .*-2* WONLO-S* 1 0. > 

CALL WTOUT '.. 'FUEL' - * 2* WFLLDSj-1 0. > 

CALL WTDUT ' RUN I L I ARY PROPELLANTS " *■ 1 * WRNP * 1 0 . - > 

CALL WTOUT < ' ACS PROPELLANT ' * 2 * WAN ACS *10. ) 

CALL WTOUT'*! •' A I R BREATHING ENGINE FUEL ' * 2* WfiNAB* 1 0. > 

WRITE. *16 * 2.0 0 CL* 

CALL WTOUT *7 - STAGE LIFTOFF WEIGHT MINUS PAYLOAD' * 1 * WPBLOW* 1 


WRITER* 200 0* 

CALL WTOUT <■ ' STAGE LIFTOFF- WEIGHT WITH PAYLOAD' * 1 *'WBLOW* 1 0. 


439: WRITE ^'6* 20001 

440: CALL WTOUT < MASS FRACTION CEASED ON INEPT WEIGHT) » 1 * NLfifl* 

10.3..* 

441: WRITE *. - 6.*2000> 

442: CALL WTDUT C' WEIGHT AT INJECTION CINCL PAYLOAD * ' - * 1 * WS TG *10. 


443: 

444: 

io. :< 

445: 

446: 

447: 

448 :C 

449: 

450: 


WR I TE *: 6 * 2 0 0 0 -| 

CALL WTOUT <■ ' ENTRY ME I GHT -'ATMOSPHEP I C I NTERFRCF* ' - * 1 * WENTRY 
WPITE>:6* 2 00 CO- 

CALL WTOUT *.: S TAGE LAND I NG WE I GHT ' * 1 * WL AND * 1 0 . ■ 
lilp I TE *..to f 2 U U LU 


■JR I TE *..6 * 4 U U U .* 
bl P I TE ‘.6*2 0 0 0) 
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451 :■ 

452; 

453: 

454; 

455: 

456: 

457: 

453: 

45?; 

460: 

461: 

462: 

463r 

464: 

465J' 

466 : 

467 : 

468 rC 

462; 

470: 

471: 

4 c 2 ; 
473; 
474: 
475r 
476 : 
477 f" 
473: 
472; 
430: 
48 1: 
432: 
433: 
484; 
435; 
436 : 
437: 
438 1 
482 : 
490: 
491: 
■492: 
493 ; 
494: 
495: 
496; 
497: 
493: 
'499: 
500: 


CALL Id TOUT t AEPOBYNRM IC SURFACES * 2 - F'CT 01-10.4* 

CALL WTDUT < " BODY STRUCTURE" » 2- PCT 02*10. 4‘> ' - 

CALL WTDUT •" ' ENV I RQNMENTAL PROTECTION" £ * PCT0*3* 1 0.,4‘.> 

CALL WTOUT C" LAUNCH AND RECOVERY-" - 2 * PUT 04- 1 0. 4' 1 
CALL WTOUT *• " PROPULS I DN " * 2 y PCT05 .- 10 . 4) 

CALL WTDUT *. ' OR IENT AT I ON. ''CONTROLS-' - l EPERAT I ON - - 2 PCT 06 -10. 
CALL WTDUT t "AVIONICS " - 2 -PCT 07- 1 0. 4,' 

CALL WTDUT C '' ELECTR I CAL POWER SYSTEM 2 - PCT 08 r 1 0 . 4) 

CALL WTDUT «,-• HYDRAULIC & PNEUMATIC -SYSTEM' £ - PCT 09- 1 0.4/' 
CALL li! TOUT C-'BPY WEIGHT" * 1 y PCT1 0-10. 4) 

CALL WTDUT C "‘ DES I SN RESERVE" yEyRCTl 1 y 1 0. 4> 

CALL WTDUT ■' EMPTY WE I GHT " y 1 y PCT 1 2 - 1 0 - 4:> 

CALL WTOUT' C-" MAIN PROPELLANTS " y 2 - PCT 1 7 j 10. 4) 

CALL WTDUT *' "’TRAPPED PROPELLANTS"" y 2-PCT13r 1 0. 4“< 

CALL WTDUT i ' RESERVE PROPELLANTS' 2 -PCT 14 - 1 0.4:* 

CALL WTDUT *‘ ' INFLIGHT LOSSES" y 2- PCT15y 1 0. 4“- 
CALL WTDUT *2 AUXILIARY PROPELLANTS" - 2.-PCT16- 1 0. 4) 

WRITE (&f 30 00> 

MR I TE 1 6 - £ U U 0.* 1 
WRITE *.‘6-5000'.* 

CALL WTOUT *- "TOTAL LENGTH <FT> • .- 1 1 LPEFj 1 0. 1 > 

CALL. WTDUT * " STAGE D I AMETEP *-FT) " - 1 y DI A- 10. 1 .-> 

C ALL WTDUT *.' " LENGTH,'' D I AME TER RATIO ' 1 .- LDP AT - 1 0 ..2‘* 

CALL WTOUT* " AFT SKIRT LENGTH *.‘FT) " y 2.- LSKIRT- 1 0 . 1“* 

CALL WTDUT *- " PAYLOAD SHROUD CFTV " - 1 LPAY -10.1.* 

CALL WTDUT *■" PAYLOAD DENSITY •‘LB/CU FT) ' - E.-CPAYLIi- 10. D 
CALL WTOUT < " I NTEPTANK i PAC I NG <FT> " - 2 j L I NSTG -10. 1 > 

CALL WTOUT * " NOSE LENGTH «‘FT> " 2 - LNOSE- 1 0 . 1) 

CALL WTDUT ( ' LOM TANK LENGTH *: FT) " y 2 y LO^TH y 1 0 . 1 .< 

CALL WTDUT -'"FUEL TANK LENGTH ' FT * ' - 2 j LFLTK- 1 0. 1> 

CALL WTOUT *' ' TOTAL TANK VOLUME " - 1 - VTTK y 1 0 . j 
CALL WTOUT *" LOU TANK VOLUME" y £y VO.TK- 1 U. ) 

CALL WTDUT < " FUEL TANK VOLUME ' y 2 .» VFTK -10. > 

WRITE *'6y 6 0 00) 

CALL WTOUT >:"WING AREA <3W FTJ ■ - 1- SWING.- lU. 1? 

CALL WTDUT •- " W I MG LOAD TNG *. LB S •' SC FT) " - 1 - WS RAT - 1.0 . 1 ) 

CALL WTOUT < " W I NG SPAN -/FT.:* " y 1 .-B- 1 0. 1) 

CALL WTOUT <■ ‘ STRUCTURAL WING SPAN" .- 1 - SCRAN- 10.1) 

CALL WTDUT *'" RODT CHORD *-‘FT) ' 1 CR y 1 0 . 1 ) 

CALL WTDUT THEORETICAL ROOT THICKNESS ' 1 - TROOT.- 1 0. I) 
CALL WTOUT*: "TIP CHORD (FT? " - 1 - CTy 1 0. D 
CALL WTOUT C " TAPER PAT I O' - 1 - TAPEP -10. 3) 

CALL WTOUT t ' ASPECT RATIO" - 1 y APEF- 1 0. D 

CALL WTOUT*'. "SWEEP OF FILLET <DEG) ‘ - 1 - LAMBDF - 10. 1) 

CALL WTDUT < ' LEAD I NG EDGE SWEEP CD EG' 1 " - 1 .- LPMBLE -10.1'* 

CALL WTDUT *, " TRA I L I NG EDGE SWEEP *:DEG'* " - 1 .- LAMBTE .- 10.1 ) 

C ALL WTDUT C "‘ SP ANW I SE D I STANCE " - 1 - B Y 1 B2 y 1 0 . 1 ) 

CALL WTDUT ? " D V 1 " 1 - D V 1-10.1) 

CALL WTDUT < • DYE " - 1 - DYE y 1 0 . 1 “* 
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501: 

50 2: 

5 03 1 

504i 

505s 

5 06 : 

50? S' 

5 OS: 

509:' 

510: 

511 

51£: 

513: 

514: 

515: 

516: 

51?: 

518: 

519: 


CRLL I i.l TOUT t CF "' * 1 CF * 1 0 . 1 > 

CftLL MTOUT < " C 1 ' * 1 * C 1 ? 1 0 . 1 !■ 

CRLL MTOUT < •- C2 >UCS^10,U 
CRLL MTOUT <"C3' * 1 ? C3 ? 1 0. 1 '-> 

CftLL MTOUT < ' C4' * 1 * C4* 1 0 . 1 > 

CftLL MTOUT *• ' C 5 •' * 1 * C5 * 1 0 . 1 > 

CftLL MTOUT < ' C6 ' ? 1 * C6 ? 1 0 . 1 > 

CftLL MTOUT <‘‘C7 X ? 1 *C7? 1 0. 

CftLL MTOUT *: ' CS ' .* 1 j-CS .* 1 0. IV 

CftLL MTOUT < i'LRH C.'2> 1 •’ > 1 * LRMC2 1 ? 1 0 . 1 > 

CftLL MTOUT •' ' <LftM i>£> 2 ' .* 1 ? LRMCH2? 1 0 . 1 • 

CftLL MTOUT t ' COS LhM C-' 1 ' * 1 j C0SL2 1*10. 4/' 

CftLL MTOUT ' CO i LRM C-' £'‘ .* 1 * C DCL22 .* 1 0 . 4"> 

CftLL MTOUT '"'CDS LRM 2 EFF' ? 1 .» LftMEFF? 1 0 . 4> 

CftLL MTOUT < - CLft TRUE M* CLftTRU *10. 2.' 

CftLL MTOUT ••• " CLft REF Tl* CLftPEF *10.2':> 

WRITE (£* 70 00!> 

CftLL MTOUT ^VERTICAL TAIL fiPEft >’Z9 FT"> ' * 1 * CVERTi 1 0. l.> 
WRITE i;6* 8 000'.' 


52 0: 

CftLL 

521 

c 

522 

‘C +++- UNIT 

523 

C 

524 

CftLL 

525 

CftLL 

526 

CftLL 

527 

CftLL 

528 

CftLL 

529 

CftLL 

530 

CftLL 

531 

CftLL 

532 

C RLL. 

533 

CftLL 

534 

CftLL 

535 

CftLL 

536 

CftLL 

537 

CALL 

533 

CftLL 

539 

CftLL 

540 

CftLL 

541 

CRLL 

542 

CftLL 

543 

CftLL 

544 

CftLL 

545 

CftLL 

546 

CftLL 

547 

CftLL 

548 

CftLL 

549 

CALL 

55 0 

CftLL 


MTOUT < " HOR I ZONTftL STftB I L I ZER 


OUTPUT +*+- 


ftBBREL a 4 ? 3HLEN r 1 1 .* LEN > 
ftBBREL': 14* 6HWDMRIN* 1 *MOMRIN> 
ftBBREL (14) SHUFMftIN* 1 ? MFNRIN) 
ftBBREL '"14y 6HV0MftIM? 1? VOMRIN!.' 
ftBBREL >-'14? 6HVFMftIN* 1 , VFMftIN'-> 
ftBBREL >•' 1 4* 6HVTMR IN* 1 * VTMfl I N'-> 
ABDREL a 4? 6HWbft'£PP* 1 ? MGftSPP> 
RBBPEL >'14? 6HWFUTRF? 1 .*MFUTPP> 
ftBBREL >'14* 6HWQXTRP? 1 *WOXTRP> 
ftBBREL 'll 4* 6HWEGTRP* 1 ? MEGTRP.' 
ftBBREL >: 1 4* 6HMTPP- * 1 ? WTPP j 

RBBPEL ci4? shuoxrecj i? moicreo 

ftBBREL < 1 4? 6HMFLRES* 1 * WFLREO 
ftBBREL <14? 6HWFPR *- 1 ? I.IFPP-' 
ftBBREL >.14* SHMftXfiLC? 1 .* WftMfiLS) 
ftBBREL <14? SHWftXftB ? 1 * MftflftE!' 1 
ftBBREL >14? 6HWft:--:P ? 1 * WftXP> 
ftBBREL a 4? 6HMFLL0G? 1 f WFLLOS> 


ftBBREL ( 1 4? 6HW0XL0C ? 1 ? MDXLD 5 


ftBBREL < 1 4? 6HML0SC * 1 ? WLO-MV 
ftBBREL >'14* 6HW0TK * 1 ? MDTK.:> 
ftBBREL >- 1 4? 6HWFTK ? 1 * WFTK '• 
RBBPEL ( 1 4* 6HV0TK ? 1 ? VOTK :* 


RBBPEL ■: 14* 6HVFTK * 1 ? VFTfO 
ftBBREL >. 1 4* 6HVTTK * 1 ? VTTK> 
RBBPEL c. 1 4 * 6HB I ft * 1 .* D I ft'' 

ftBBREL <14? 6HRPDIUT? 1 ? PRD I UT 


ftRfcft 


>.'3Q FT> ''.*1? 3BQPZ? 1 0 
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CALL .ADBPEL '145 EHRLEH 5 1 5 ftLEN> 
CALL ABBPEL -.'145 SHSW INS 5 1 5 .£1.1 1 MS j 
CALL ABBPEL ■' 1 4» 6HSVEPT 5 1 , ?VEPT> 
CALL ABBREL •' 1 4* 6HCR00T 5 l , CR) 

CALL ABBREL <14»t>HCT 5 1 , CT> 

CALL ABBREL. <14*6HB£ » 1 . 

CALL ABBPEL ■' 1 4» EHE 5 1 5 Bj 

CALL ABBREL 04* 6HDY1 5 1 5 BY 1 ? 

CALL AB BREL (' 1 4 » SHB Y’E j 1 5 BYE!? 

CALL ABBREL < 1 4 ? 6HCF 5 1 , CF> 

CALL ABBREL <145 8HC1 

CALL ABBREL 1 4, 6HCS 5 1 5 CE.‘> 

CALL ABBREL <1 4 » 6HC 3 5 1 5 CSO 

CALL ABBREL <1 4 » 6HC4 5 1 5 C4'> 

CALL ABBREL <14>6HC5 5 1 , C5> 

CALL ABBREL <1 4? 6HC6 5 1 5 C6> 

CALL ABBREL < 1 4? 6HC7 t 1 5 C7> 

CALL ABBREL <14j6HC8 *1*C8> 

CALL ABBREL <14» 6HLAMC-41 5 l*LAMC4iV 
CALL ABBREL < 1 4? 6HLAMC42 5 1 5 LAMc4cL' 
CALL ABBREL <145 6HCAV 1 5 1 , CAV 1 :• 

CALL ABBREL < 1 4, 6HCAVS -MI AVE- 1 
CALL ABBREL •: 1 4j 6HLAMCE I.* 1?LAMC£1> 
CALL ADBPEL >:i4.6HLfiMC2£» 1,LAMC22> 
CALL ABBREL ' 1 4r6HL AMEFF r 1 9 LAMEFF> 
CALL ABBREL '-'1 4» 6HAREF 5 1 , RPEF) 
CALL ABBREL '"145 EHWI-.I I HE , 1 5 I.JU I MS> 
CALL ABBREL < 1 4* SWEPT 5 1 5 UIVERT> 
CALL ABBREL <1 4* 6HWH0RZ 5 1 5 WHE3RZ> 
CALL ABBREL <14rSHW8UPF 5 1 5-UIC UPF> 
CALL ABBREL <1 4» 6 HI. I I NFUT * 1 5 U I NFUT"< 
CALL ABBREL <145 SHMIliDXT 5 1 -WINO^T’ 
CALL ABBREL <145 bHWTHRSTr 1 5 MTHPCT) 
CALL ABBREL <14»6HWI+fSTG* irWINCIG.' 
CALL ABBREL < 1 45 6HWNDST .» 1 5 WMOST> 
CALL ABBPEL 1 1 45 6HI.JSTGCT 5 1 5 WSTGi T"' 
CALL ABBREL <145 6HW3ECST 5 1 5 l.fSECCT'J 
CALL ABBREL «" 1 4, SHWBdDY 5 1 5 1/IB0BY> 
CALL ABBREL ■" 1 4, 6HW I NSUL 5 1 5 W I NCUL> 
C ALL ABBREL < 1 4r 6HWM I -I UL 5 1 5 UM I DDL j 
CALL ABBREL f 1 4, 6BWTPS 5 1 5 WTPS) 
CALL ABBREL < 1 4» GHWLftNCtt* 1 5 1.JLANC H:' 
CALL ABBREL 1 1 4» 6HWLG ’ 1 5 WLG^ 

CALL ABBPEL <145 6HWLRB 5 1 5 UILRB.J 
CALL ABBREL <145 6BWENG 5 1 , WEMG> 
CALL ABBREL < 1 45 6HWABPR 5 1 5 WRBPR> 
CALL ABBREL ■' 1 4, 6HWRBTK 5 1 5 IJRBTIO 
CALL ABBREL <1 45 6HI.JFEEB 5 1 5 UFEED> 
CALL ABBPEL <145 SHWEMGMTj 1 5 WENGfTP 
CALL ABBPEL < 1 4» 6HWPRCY S 5 1 5 WARS Y £ '* 
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601 

CRLL 

602 

CALL 

6 03 

CRLL 

604 

CRLL 

6 05 

CRLL 

606 

CRLL 

6 07 

CRLL 

6 03 

CRLL 

6 OR 

CRLL 

610 

CRLL 

611 

CRLL 

612 

CALL 

613 

CRLL 

614 

CRLL 

615 

CALL 

616 

CRLL 

617 

CRLL 

613 

CRLL 

619 

CALL 

620. 

CALL 

621. 

r- 

622 

END 


RDDPEL '• 14* SKt'IHEHT * 1 y WHEATS 
RDDPEL «:i 4y 6HMPRDP * 1 * WPPOP> 
RDDREL >:14 j-6HMSTRB * 1 , I.JSTRB> 
RDIiREL *' 1 4 j 6HW AL j 1 ? I. 1 IAC 0 .,' 

RBBEEL 1 4» 6HMRCSTK r 1 y WfiCSTIO 
RDDREL <14? 6HWREP0 y 1 ylyifiEPO'' 
RDDPEL C 1 4» 6HW CEP j 1 ? EP> 
RDDREL >:i4» 6HMQRSUL* 1 *WORSUL> 
RDDPEL ■* 1 4 * 6HWRV I ON WfiV I DN> 
RDDREL <14* 6HMP0UER.» 1 * WPQWER> 
RDDREL *'14» SHI.IHVCRDy 1 y WHYCRB) 
RDDREL U 4 y 6HWBPY .* 1 r WBRY"< 
RDDREL Cl 4y 6HWCEJNT y i jJJCDMT? 
RDDPEL a4*6HWEMPTY> 1 y l.l EMPTY' 1 
RDDREL t* 1 4v6HWBL0W y 1 , WBLE3W' 
RDDREL <14y6HMPEL0t..ly lyWPBLOU - 
RDDPEL •" 1 4* EHkl.i.TG • 1 , WSTS> 
RDDREL >' 1 4r 6 REENTRY * 1 *WEMTRY> 
RDDPEL 1 4y 6HWLRMD y 1 r WLRND’> 
RDDPEL Cl 4* 6HYLRM * 1 y^LAM> 
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APPENDIX B 


ABBREVIATED PROGRAM FLOW DIAGRAM, 
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